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INTRODUCTION 

Justification 

In  the  power  industry,  an  increasing  concern  is  con- 
trolling the  size  of  seasonal  load  peaks.  Large  peaks  have 
brought  utilities  face  to  face  with  three  concurrent  op- 
tions; 1.  depending  on  expensive  peak  generation  capacity, 
2.   building  expensive  additional  baseload  generation 
facilities,  and/or  3.   developing  ways  to  moderate  the 
size  of  system  peaks.   Many  utilities  are  finding  that  the 
cost  of  the  first  two  options  are  making  the  third  option 
more  and  more  attractive.   Controlling  system  peaks  can 
allow  a  utility  to  reduce  the  need  to  utilize  peak  gener- 
ation capacity  which  is  expensive  to  run.   It  also  can 
allow  utilities  to  defer  construction  of  new  baseload 
facilities  which  are  expensive  to  build. 

Most  utilities  (excluding  some  Northern  utilities) 
experience  their  largest  peaks  in  the  summer.   This  is  due 
to  the  increasing  saturation  level  of  electrical  central 
air-conditioning.   It  is  theorized  that  by  exercising  some 
sort  of  load  control  on  air-conditioners  during  peak  gene- 
ration hours,  a  utility  can  significantly  reduce  its  peak 
without  adversely  affecting  customer  satisfaction. 
Purpose 

The  purpose  of  this  research  was  to  investigate  the 
effects  of  direct  load  control  of  residential  air-con- 
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ditioning  (a/c)  systems.  Of  special  interest  was  how  direct 
load  control  affected  two  quantities:  1.  the  demand  of  a 
group  of  houses,   2.  the  typical  inside  temperature  of  a 
controlled  house. 

There  are  two  ways  in  which  this  investigation  can  be 
accomplished: 

1.  A  field  experiment  can  be  conducted  by  installing 
load  control  equipment  in  homes.  The  equipment 
controls  the  air-conditioning  systems  according  to 
the  desired  control  scheme.   Data  gathered  from 
these  experiments  can  then  be  analyzed  to  deter- 
mine what,  if  any,  effects  resulted  from  the  load 
control. 

2.  Computer  simulation  can  be  undertaken  utilizing  a 
mathematical  model  of  the  ail — conditioning  system. 
Predictions  are  made  on  how  the  system  will  re- 
spond under  given  circumstances.   Cases  with  and 
without  load  control  can  be  simulated  and  compared 
to  predict  what  effect  load  control  will  have  in 
actual  implementations. 

Previous  Work 

Researchers  have  done  previous  work  with  field  experi- 
mentation and  with  computer  modeling. 

Field  experiments  have  been  undertaken  to  examine 


several  different  varieties  of  direct  or  indirect  load 
control.  Cycling  during  peak  hours,  mandatory  discon- 
nection during  peak  hours,  and  changing  service  voltage 
are  some  of  the  more  common  methods.   The  interest  of  the 
present  research  primarily  lies  with  cycling  during  the 
peak  hours  of  the  day. 

Some  of  the  field  studies  include: 

The  Hickory  Load  Management  Project  undertaken 
by  the  Detroit  Edison  Company  of  Detroit,  Michigan,  has 
been  documented  by  Strocker  CIO],  and  by  Davis,  Krupa,  and 
Diedzic  til  3.  This  project  centered  on  direct  load  control 
of  residential  a/c's.  The  a/c's  were  cycled  off  for  15 
minutes  of  each  hour  over  a  5  hour  period.  This  was  dome 
each  day  the  outside  temperature  reached  or  exceeded  75  F. 
The  researchers  primarily  concerned  themselves  with  the 
net  impact  on  operating  expenses.  They  found  the  effect  of 
their  experiment  to  be  of  no  value  as  an  operating  tool. 

Nordell  has  documented  a  field  direct  load  man- 
agement experiment  undertaken  for  Northern  States  Power  in 
Minneapolis  Minnesota.  This  experiment  involved  both  resi- 
dential and  commercial  a/c's.  The  a/c's  were  forced  off 
SOX  of  the  time  during  a  six  hour  period.  Net  impact  of 
control  included: 

1<  A  30X  demand  relief  during  control. 

2.  A  30'/.  demand  increase  following  control. 
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3.  An  average  space  temperature  rise  of  2  de- 
grees by  the  end  of  control  C81. 

Strickler  and  Noell  of  Southern  California  Edi- 
son have  reported  on  the  a/c  cycling  program  utilized  by 
their  company.  The  program  is  systemwide  involving  approx- 
imately 100,000  a/c's.  Air-conditioners  are  controlled 
according  to  one  of  three  options:  50,  67,  or  100"/.  ac- 
cording to  the  amount  of  time  the  a/c  would  be  off  during 
the  control  period.  The  program  is  said  to  reduce  demand 
by  1.95  kW  per  customer  at  the  generation  level  with  no 
consumption  effects  [7], 

As  part  of  the  Athens  Automation  and  Control 
Experiment  conducted  on  the  distribution  system  of  Athens, 
Tennessee,  load  control  experiments  have  been  conducted  on 
heat  pumps  in  the  winter.  The  heat  pumps  were  forced  off 
up  to  50X  of  the  time  from  6  a. m.  to  9  a. m.  on  weekday 
mornings  when  the  forecast  temperatures  fall  in  the  de- 
sired range.  Results  indicated  that  the  load  control  re- 
sulted in  a  higher  energy  use  by  the  heat  pumps.  This 
experiment  has  been  documented  by  Reed,  Broadwater,  and 
Chandrasekaran  [&]. 

The  results  of  these  experiments  have  been  mixed. 
Some  experiments  have  shown  results  indicating  direct  load 
control  shows  much  promise  for  reducing  seasonal  demand 
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peaks.  Others  have  indicated  that  load  control  can  have 
marginal  results  in  certain  situations. 

Computer  modeling  has  also  been  conducted  by  several 
researchers: 

Pahwa  and  Brice  C13,  Bargiotas  and  Birdwell  C3], 
Chan  and  Acker man  C4],  Chong  and  Malhami  [5],  and  Ihara 
and  Schveppe  [2]  have  all  developed  mathematical  models 
for  a/c  systems.  Some  are  based  on  the  physical  heating 
and  cooling  processes  while  others  are  based  on  utility 
data  and  probability  models.  The  level  of  the  models 
varies  from  being  simple  with  one  or  two  variables  to 
being  very  complex  with  five  or  more  variables. 

Pahwa  and  Brice  modeled  the  dynamic  behavior  of 
the  residential  a/c  system  from  fundamental  physical  prin- 
ciples of  heat  transfer  and  storage.  Then  a  scheme  for 
identifying  the  model  parameters  via  the  maximum  likeli- 
hood method  was  developed.  However,  no  effort  was  made  to 
utilize  the  results  to  simulate  direct  load  control  CI]. 

Ihara  and  Schweppe  utilized  their  model  to  simu- 
late cold  load  pickup.  They  modelled  individual  houses  to 
predict  the  magnitude  and  duration  of  overloads  following 
a  power  outage.  They  also  acknowledged  the  possibility  of 
simulating  load  control  in  a  similar  fashion  121. 

Bargiotas  and  Birdwell  have  also  simulated  di- 
rect load  control  with  their  model.  However,  their  work 
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was  conducted  on  a  limited  basis.  They  confined  their 
investigation  to  a  single  house.  They  forced  the  a/c  off 
for  a  variety  of  time  lengths  in  a  30  minute  period.  They 
found  that  control  forced  inside  temperature  out  of  the 
temperature  band  allowed  by  the  thermostat.  They  also 
found  that  control  caused  the  unit  cycles  to  synchronize 
with  the  control  cycles.  This  caused  a  loss  of  diversity 
among  control  customers  [3]. 

Chan  and  Ackerman  presented  a  physically-based 
methodology  for  synthesizing  residential  heating, 
ventilating,  and  a/c  load.  This  methodology  was  then 
tested  against  utility  data.  They  concluded  that  their 
method  was  accurate  in  estimating  residential  a/c  load. 
They  also  simulated  some  load  management  experiments, 
comparing  the  results  to  simulated  uncontrolled  days.  They 
turned  the  a/c  off  for  75  minutes  out  of  5  hours.  It  was 
discovered  that  inside  temperature  rose  by  1  to  2  F  as  a 
result  of  control.  These  simulations  were  done  primarily 
to  validate  their  methodology  for  predicting  load  shape 
and  no  effort  to  seriously  investigate  direct  load  control 
was  made  [4]. 

The  work  done  by  Chong  and  Malhami  also  concen- 
trated on  cold  load  pickup.  They  also  modelled  the  elemen- 
tary component  loads  of  a  power  system.  The  loads  were 
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aggregated  to  determine  the  percent  of  space  heaters  that 
would  be  on  after  a  power  outage.  Their  methodologies,  if 
not  specific  equations,  are  also  applicable  to  simulating 
load  control. 
Choice  of  Method 

For  this  investigation  of  load  control,  computer 
modeling  and  simulation  was  chosen  as  the  mode  of  investi- 
gation. There  are  several  reasons  why  this  choice  was 
made: 

1.  Computer  simulation  allows  more  direct  control  over 
experimental  conditions.  Conditions  for  field  experiments 
are  subject  to  fluctuations  of  the  weather.  In  simulation, 
the  researcher  sets  the  conditions  in  which  he  is  inter- 
ested. Case  in  point:  several  of  the  previously  mentioned 
field  studies  were  unable  to  arrange  identical  conditions 
for  both  the  controlled  and  uncontrolled  cases.  They  were 
forced  to  base  their  conclusions  on  results  with  built-in 
errors.  Computer  simulation  allows  the  researcher  to  com- 
pare controlled  and  uncontrolled  situations  under  exactly 
identical  situations. 

2.  Many  different  experiments  can  be  conducted  in  a 
short  amount  of  time.  This  allows  the  researcher  to  easily 
change  control  strategies,  environemtnal  conditions,  and 
cooling  and  heating  properties  of  the  house.  In  a  field 
experiment,  months  or  years  can  be  required  to  get  satis- 
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factory  results.  More  time  is  then  required  to  determine 
the  effect  of  the  many  experimental  variables.  Thus,  each 
implemented  change  takes  a  considerable  length  of  time  to 
produce  helpful  feedback. 

3.  Suggestions  for  improvements  derived  from  simula- 
tion results  can  be  implemented  in  a  shorter  amount  of 
time. 

4.  The  economic  resources  needed  to  conduct  computer 
simulations  are  much  less  than  those  needed  for  field 
experimentation.  Most  of  the  necessary  resources  were  al- 
ready available. 

5.  In  a  computer  simulation,  the  researcher  is  in- 
volved in  the  process  on  a  very  intimate  level.  This  makes 
it  easier  to  produce  meaningful  insight  and  understanding 
from  the  data  being  analyzed. 

It  must  be  mentioned,  however,  that  there  are  weak- 
nesses inherent  in  computer  simulations.  These  include: 

1.  A  computer  model  can  only  reflect  an  idealized 
version  of  the  real  situation. 

2.  There  are  no  reasonable  ways  to  accurately  simu- 
late every  facet  of  a  real  situation. 

3.  A  computer  simulation  can  only  predict  what  will 
happen  in  the  real  situation. 

4.  A  computer  simulation  is  unable  to  account  for  the 
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real-life  problems  that  are  almost  always  encountered  in 

any  process. 

Remainder  of  the  Report 

First,  details  on  the  development  of  the  mathematical 
model  used  in  the  simulations  will  be  given.  Following 
this,  the  development  of  the  simulation  techniques  will  be 
detailed  and  the  performance  and  results  of  the  actual 
simulations  will  be  reported.  Finally,  conclusions  devel- 
oped from  the  simulations  will  be  presented. 
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MODEL  DEVELOPMENT 

In  the  introduction  to  this  report,  it  was  mentioned 
that  several  researchers  have  developed  mathematical  mo- 
dels for  modeling  residential  a/c  systems.  Several  of 
these  models  consider  thermodynamic  details  of  an  entire 
house.  Others  represent  the  process  at  the  thermostat 
level.  Some  of  these  models  are  also  complex,  taking  into 
account  many  factors  which  are  unnecessary  for  an  invest- 
igation such  as  the  present  one.  In  some  models,  factors 
specific  to  a  particular  house  are  taken  into  account, 
which  can  be  very  difficult  to  measure.  Complex  weather 
data  not  particularly  relevant  to  this  research  is  also 
incorporated  in  some  models.  In  fact,  Bargiotas  and 
Birdwell  [3]  conclude  in  their  report  that  a  model 
omitting  some  of  the  weather  variables  in  their  model  will 
perform  just  as  well. 

For  these  simulations,  a  model  which  is  a  simplifi- 
cation of  some  of  the  more  complex  models  was  chosen.  Many 
of  the  separate  factors  considered  in  the  more  complex 
models  were  lumped  together  to  represent  an  a/c  system  at 
the  thermostat  level.  The  resultant  model  is  very  similar 
to  a  preliminary  model  used  by  Ihara  and  Schweppe  121. 

The  model  breaks  down  into  two  subsets: 

1.  The  thermostat  model. 

2.  The  equations  that  describe  the  thermodynamic 
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heating  and  cooling  processes  of  the  system. 
Thermostat  Model 

The  chosen  thermostat  model  can  be  described  by  two 
quantities; 

1.  a  temperature  setting,  Ts,  and 

2.  a  thermostat  deadband,  deltaT,  on  either  side  of 
Ts. 

Once  the  a/c  turns  on,  it  will  run  until  the  thermo- 
stat temperature  reaches  Ts  -  deltaT.  Once  the  a/c  cycles 
off,  it  will  remain  off  until  the  thermostat  temperature 
reaches  Ts  *  deltaT.  If  power  is  interrupted  while  the  a/c 
is  running,  the  a/o  will  still  run  when  power  is  restored 
unless  the  thermostat  temperature  reached  Ts  -  deltaT.  If 
power  is  interrupted  while  the  a/c  is  off,  the  a/c  will 
remain  off  when  power  is  resumed  unless  the  thermostat 
temperature  rose  above  Ts  *  deltaT.  This  thermostat  model 
is  identical  to  that  used  by  Pahwa  and  Brice  CI]. 
Thermodynamic  Model  of  Heating  and  Coolina  Processes 

The  heating  and  cooling  processes  are  represented  by 
two  differential  equations: 

1.  Heating  stage  (when  a/c  is  off): 

The  rate  of  change  of  the  thermostat  temperature 

of  the  house  is  determined  by  the  heating  coefficient 

of  the  house  times  the  difference  between  the  thermo- 


18 


stat  temperature  and  the  driving  temperature.  (The 
driving  temperature  is  the  temperature  of  the 
structure  of  the  house.  This  temperature  is  usually 
higher  the  the  outside  temperature  because  of  heat 
storage  in  the  structure  and  it  also  lags  the  outside 
temperature  by  a  few  hours.  In  this  study,  the 
driving  temperature  is  assumed  to  be  5  degrees 
greater  than  the  outside  temperature  and  lag  the 
outside  temperature  by  2  hours  during  the  daytime. ) 
The  differential  equation  describing  the  heating 
process  is: 

-LiilL    =    f)\  Tdrive    -    T(t)  1 
dt  L  J 

where, 

T(t)  is  the  thermostat  temperature  of  the  house 
(degF). 

Tdrive  is  the   driving  temperature  of  the  sys- 
tem, considered  to  be  a  constant  for  the 
solution  of  the  differential  equation 
(degF). 

/3  is  the  heating  coefficient  of  the  house 
(1/min). 
2.  Cooling  phase  (while  a/c  is  on): 

In  the  cooling  phase,  the  rate  of  change  of  the 
thermostat  temperature  is  altered  by  the  rate  at  which 
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cooling  is  supplied  by  the  a/c.  The  differential  equs 
tion  is: 

-4JM-    =    fl[  Tdrive    -    T(t)  ]    -    • 

where, 

a   is  the  rate  at  which  the  a/c  supplies 
cooling  to  the  house  <degF/min). 
Further  Mathematical  Development 

In  order  to  utilize  the  derived  model  in  simulations, 
further  mathematical  development  was  needed.  The  given 
heating  and  cooling  differential  equations  were  solved 
using  Laplace  Transforms.  The  resulting  equations  are  as 
follows: 

heating  case: 

T(t)     =    Tdrive    +     [  T(0)     -    Tdrive  le_/?t 
cooling   case: 
T(t)     =    Tdrive    -    -2-    ♦     [  T(0)     +    JL.    -    Tdrive  la* 

where  T(0)  is  the  inside  temperature  at  t=0. 

These  equations  can  be  manipulated  algebraically  to 
obtain  heating  and  cooling  times  to  reach  a  specified 
temperature,  T(t).  The  resulting  expressions  are: 
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heating  case: 


--i-    In 


T(t)  -  Tdrive 
T(0)  -  Tdrive 


cooling  case: 


-  1 


In 


T(t)  +  (a/ U)  -  Tdrive 
T(0)  +  {a/0)  -  Tdrive 


These  expressions  make  it  possible  to  determine  when 
the  inside  temperature  makes  the  themostat  turn  the  a/c  on 
and  off.  This  in  turn  allows  the  model  to  predict  when  the 
a/c  goes  on  and  off  over  a  specified  length  of  time  (given 
intial  conditions:  initial  temperature  and  whether  the  a/c 
is  initially  on  or  off). 
Demand  Calculations 

Knowing  when  the  a/c  goes  on  and  off  allows  demand 
calculations  to  be  made.  It  is  assumed  that  when  the  a/c 
is  running,  it  is  running  at  full  power.  This  assumption 
is  not  strictly  true  in  actual  cases.  In  actual  cases,  the 
demand  of  the  a/c  is  affected  by  service  voltage,  outside 
temperature,  fluid  pressure  and  other  such  factors. 
However,  consideration  of  such  factors  is  beyond  the  scope 
of  this  research.  These  factors  will  generally  produce 
only  small  effects.  Therefore  the  assumption  of  an  ideal 
a/c  with  constant  demand  will  still  produce  realistic 
results. 
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For  ease  of  calculation,  the  demand  Is  given  the  value 
of  1  when  the  a/c  is  running  and  0  when  it  is  not.  There- 
fore, to  calculate  average  demand  for  a  period  of  time  one 
simply  needs  to  add  up  the  total  on-time  during  that 
period  and  divide  by  the  length  of  the  period.  If  the  a/c 
is  on  for  the  entire  period,  the  average  demand  is  1. 
Likewise,  if  the  a/c  is  off  for  the  entire  period,  the 
average  demand  is  0. 
Inside  Temperature 

The  inside  temperature  is  one  of  the  variables  of 
interest  in  this  simulation.  The  on/off  times  are  deter- 
mined according  to  the  behavior  of  the  inside  temperature 
at  the  thermostat.  At  each  transition  the  temperature  is 
recorded.  This  allows  calculations  of  average  inside  temp- 
erature over  specified  periods  of  time.  The  mathematical 
development  of  this  is  as  follows: 

The  average  value  of  a  function  over  an  interval 

(a, b)  is  known  to  be  : 

b 


1 


b  -  a 


f      f(x)  dx 


a 
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Apply  this  to  the  heating  case: 


Tave  = 


t  -  t 


0   t 


/        Tdrive  +  [  T(tn)  -  Tdrive  1  e 


"/?(*  -  t„)  , 


t  -  t„ 


=  Tdrive    - 


0 
Tdrive  *  x  +  h(tQ)  - 

T(tQ)  -  Tdrive 


dx 


(*  -V  /Je 


-ft.      L       J 


■ft 


L  e 


e-ftt  _  e-^o 


cooling  case: 

using  a  similar  development 


Tave  =  Tdrive  -  -2-  - 
0 


T(tQ)  +(a/0)   -Tdrive 


(t  -  t„)  0    e 


■Ai 


T* 


"#tr 


Duty  Cycle 

For  the  purpose  of  some  simulations  it  was  necessary 
to  define  the  duty  cycle  of  the  a/c.  Duty  cycle  was  defined 
as  follows: 

duty  cycle=(on  time)/(on  time  ♦  off  time) 
on-time  -  time  which  is  required  for  the  a/c  to 
force  the  inside  temperature  from 
Ts+deltaT  to  Ts-deltaT. 
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off -time  -  time  which  is  required  (with  the  a/c 
off)  for  the  inside  temperature  to 
rise  from  Ts-deltaT  to  Ts+deltaT. 
Driving  Temperature 

Two  different  types  of  driving  temperatures  were  used 
in  simulations: 

1.  Constant  driving  temperature  -  Tdrive  is  constant 
over  the  entire  period  for  which  simulation  is 
performed.  This  allows  conclusions  to  be  drawn 
about  the  steady  state  conditions. 

2.  Piece-wise  constant  sinusoidal  driving  temperature 
Tdrive  approximates  a  sinusoidally  varying  curve 
(with  a  specified  peak  value)  over  the  period  of 
simulation.  Tdrive's  value  at  any  transition  time 
is  defined  by  a  sinusoidal  curve.  At  noon  and 
midnight  the  driving  temperature  is  85  F.  The 
sinusoidal  curve  then  rises  to  specified  peak 
temperature,  T_peak,  at  6  p.  m.  The  equation  of  the 
sinusoid  is: 

Tdrive  =  85  ♦  (T_peak-85) *sin ( . 00436332t ) 
At  each  transition  Tdrive  is  updated.  The  next 
temperature  and  time  calculation  is  made  using  the 
updated  value  of  Tdrive.  This  driving  temperature 
more  closely  approximates  the  real  life  case. 
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Control  Types 

Two  different  types  of  control  were  used  in  simula- 
tions: 

1.  Centralized  control  where  a  group  of  houses  is 
automatically  cycled  off  for  a  specified  number  of 
minutes  out  of  a  period  of  time.  Most  commonly, 
control  was  exercised  7. 5  out  of  30  minutes.  Also, 
a  control  strategy  of  2. 5  out  of  10  minutes  was 
used. 

2.  Decentralized  load  leveler  control  where  the  actual 
control  times  vary  from  house  to  house.  Each  house 
is  forced  to  be  off  for  the  first  7. 5  minutes  that 
the  thermostat  calls  for  cooling.  The  a/c  is  then 
allowed  22. 5  minutes  of  actual  running  time  before 
the  control  cycle  starts  over. 
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SIMULATION  DEVELOPMENT 
Using  the  model  developed  in  the  previous  section, 
direct  load  control  experiments  were  simulated.  However, 
in  developing  these  simulations,  certain  assumptions  had 
to  be  made.  This  section  will  detail  the  assumptions  and 
define  the  following  quantities: 

1.  Initial  Conditions. 

2.  Houses  used  in  simulation. 

3.  Development  of  computer  codes. 
Initial  Conditions 

The  initial  conditions  of  the  a/c  system  are  random 
within  two  constraints: 

1.  The  temperature  is  assumed  to  be  within  the  band 
from  Ts+deltaT  to  Ts-deltaT. 

2.  The  a/c  is  assumed  to  be  either  on  or  off. 

The  initial  temperature  is  determined  by  a  uniformly 
distributed  random  number  generated  by  a  random  number 
generater,  GGUBS,  obtained  from  the  IMSL  subroutine  lib- 
rary. Thus  the  temperature  is  random  within  the  specified 
band. 

The  initial  state  of  the  a/c  is  also  determined  by  a 
random  number.  A  separate  random  number  is  generated  and 
its  value  determines  whether  the  a/c  is  initially  on  or 
off.  The  probabilities  of  being  initially  on  and  being 
initially  off  are  equal. 
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This  process  is  performed  by  a  subroutine  named 
RANDOM. 
Houses  Used  in  Simulation 

Four  cases  of  houses  were  used  in  simulation: 

1.  House  with  a  small  a/c  and  adequate  insulation.  At 
Tdrive=90  F  the  a/c  is  barely  able  to  drive  the 
inside  temperature  to  the  point  where  the  a/c  turns 
off.  Ten  minutes  are  needed  to  force  the  inside 
temperature  from  Ts-deltaT  to  Ts+deltaT.  This  case 
is  referred  to  as  case  1. 

2.  House  with  a  medium  a/c  and  adequate  insulation.  At 
Tdrive=90  F  the  a/c  cools  the  inside  temperature 
from  Ts+deltaT  to  Ts-deltaT  in  10  minutes.  The 
heating  time  from  Ts-deltaT  to  Ts+deltaT  is  also  10 
minutes.  This  case  is  referred  to  as  case  2. 

3.  House  with  a  large  a/c  and  adequate  insulation. 
At  Tdrive=90  F  the  a/c  drives  the  inside  tempera- 
ture from  Ts+deltaT  to  Ts-deltaT  in  6. 4  minutes. 
The  heating  time  is  10  minutes.  This  case  is  refer- 
red to  as  case  3. 

4.  House  with  a  large  a/c  and  very  good  insulation. 
At  Tdrive=90  F  the  a/c  drives  the  inside  tempera- 
ture from  Ts+deltaT  to  Ts-deltaT  in  5. 2  minutes. 
The  heating  time  is  15  minutes.  This  case  is  refer- 
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red  to  as  case  4. 

The  first  three  cases  were  used  in  virtually  every 
simulation  that  was  performed.  In  some  instances,  case  1 
was  dropped  because  the  results  were  known  beforehand  to 
be  trivial.  The  fourth  case  was  used  in  a  few  simulations. 
Computer  Codes 

Using  the  assumptions  and  developments  that  have  been 
detailed  in  this  and  the  previous  section.  Computer  codes 
were  developed  to  perform  the  desired  simulations.  The 
codes  were  written  in  FORTRAN-77  and  listings  of  these 
codes  are  shown  in  Appendix  B. 

These  computer  codes  are  capable  of  producing  simu- 
lated data  for  both  controlled  and  uncontrolled  cases. 
Both  types  of  control  were  simulated. 

Once  data  were  generated,  load  curves  were  generated 
by  simulating  a  specified  number  of  individual  houses  for 
specified  periods  of  time.  Demand  for  corresponding  time 
periods  for  each  house  were  added  together  to  obtain 
aggregate  load  curve.  These  load  curves  were  then  norm- 
alized to  a  kW/house  basis  (each  house  has  a  maximum 
normalized  demand  of  1 ) . 

Temperature  data  were  also  calculated  for  the  load 
curves.  It  was  calculated  either  of  two  ways: 

1.  On  an  aggregate  basis  by  summing  all  the  houses 
together  and  normalizing  to  a  per  house  basis. 
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2.  A  typical  house  from  the  group  was  used. 


29 


CONSTANT  DRIVING  TEMPERATURE  SIMULATIONS 
This  section  details  the  simulations  that  were  per- 
formed using  a  constant  value  for  Tdrive. 
Sample  Size  Simulations 

Two  different  sets  of  simulations  were  undertaken  to 
examine  the  effect  of  the  number  of  houses  in  the  load 
curve  (or,  sample  size).  The  simulations  were  done  over  two 
different  lengths  of  time,  30  hours  and  10  hours.  The 
method  of  control  used  throughout  was  centralized  control 
with  7. 5  out  of  each  30  minutes  automatically  off. 
30  Hour  Simulation 

In  this  set  of  simulations,  load  curves  were 
generated  for  cases  1-3  over  a  period  of  30  hours  with  a 
driving  temperature  of  90  F.  The  following  statements 
define  the  simulation  constraints: 

1.  Load  curves  of  1-100  houses  were  generated. 

2.  Both  controlled  and  uncontrolled  load  curves 
were  generated  for  the  selected  sample  sizes. 

3.  Cases  1-3  were  used. 

4.  Average  demand  reduction  between  the  con- 
trolled and  uncontrolled  cases  was  calculated 
for  each  hour  of  the  30  hour  period. 

5.  The  30  average  hourly  demand  reductions  for 
the  30  hour  period  were  considered  as  a  data 
set.  An  average  and  standard  deviation  were 
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calculated  for  the  data  set. 
6.  Ten  independent  trials  were  performed  for 
samples  sizes  up  to  21  houses.  For  sample 
sizes  of  50  and  100  houses,  5  independent 
trials  were  performed. 
The  purpose  of  this  simulation  was  two  fold;  1. 
To  study  the  effects  of  control  on  demand  reduction  and  2. 
To  study  the  effect  of  sample  size  on  the  variance  of 
demand  reduction.  Samples  of  the  resulting  data  are  shown 
in  data  tables  I,  II,  and  III.  The  remaining  data  are 
presented  in  Appendix  A. 
Results 

From  the  data  generated,  the  following  results 
are  evident: 

case  1:  In  this  case,  the  demand  reduction  levels 
out  at  around  23X.  This  is  because  the  a/c  has  to  run  most 
of  the  time  in  the  uncontrolled  state  to  keep  up  with  the 
driving  temperature.  When  control  is  applied,  the  a/c  is 
forced  to  run  less  than  it  would  like  resulting  in  nearly 
maximum  savings.  The  standard  deviation  does  not  vary 
wildly  for  any  size  of  load  curve.  However  the  standard 
deviations  for  the  separate  trials  seem  to  settle  to  very 
steady  level  of  around  4%  at  a  sample  size  of  21  houses.  A 
sample  of  the  data  for  this  case  is  shown  in  data  table  I. 
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(Further  substantiation  of  these  conclusions  is  shown  in 
tables  A-l  through  A-4  in  Appendix  A. ) 

Table  I:  Average  Hourly  Demand  Reduction  and  Standard  Dev- 
iation of  the  Hourly  Demand  Reductions  Over  a  30 
Hour  Period  for  Case  1. 

Trial   Avg.  Hourly  Dem.  Red.   Stan.  Dev. 

1  22. 77.  4.  07. 

2  22. 6%  3. 97. 

3  22.  655  4.97. 

4  22.6%  4.07. 

5  22.  77.  3.  87. 

6  22.  655  3.  9% 

7  22. 67.  4.  OX 

8  22.  6  7.  4.  37. 

9  22. 77.  3. 97. 
10  22. 67.  4. 07. 

Sample  Size:  21  houses 

case  2:  In  this  case,  the  average  hourly  demand 
reduction  seems  to  level  out  at  about  2. 855.  The  standard 
deviations  of  the  separate  trials  level  out  at  around  . 4% 
for  the  load  curves  of  10  houses  (see  table  A-6).  A  sample 
of  the  data  for  this  case  is  shown  in  table  II.  (Further 
data  is  shown  in  tables  A-5  through  A-8  in  Appendix  A. ) 

case  3:  This  case  shows  essentially  no  demand 
reduction  and  in  fact,  can  show  an  increase.  The  standard 
deviations  for  the  trials  at  each  size  of  load  curve  show 
that  for  some  hours,  there  was  an  increase.  The  standard 
deviations  of  the  separate  trials  level  out  at  a  value 
between  .57.  and  1.455.  This  occurs  at  a  sample  size  of  21 
houses.  A  sample  data  table  for  this  case  is  shown  in 
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table  III.  (Further  data  is  shown  in  tables  A-9  through  A- 
12  in  Appendix  A.  ) 


Table  II: 


Average  Hourly  Demand  Reduction  and  Standard  Dev- 
iation of  the  Hourly  Demand  Reductions  Over  a  30 
Hour  Period  for  Case  2. 


Trial 

Avg. 

Hourly  Dem.  Red.   Stan.  Dev 

1 

2.  87. 

0.  47. 

2 

2.  87. 

0.  47. 

3 

2.  ex 

0.  47. 

4 

2.  87. 

0.  57. 

5 

2.  87. 

0.  57. 

6 

2.87. 

0.  37. 

7 

2.  87. 

0.  37. 

8 

2.  97. 

0.  67. 

9 

2.  87. 

0.  47. 

10 

2.  87. 

0.  47. 

Sample  Size:  20  houses 


Table  III:  Average  Hourly  Demand  Reduction  and  Standard 

Deviation  for  the  Hourly  Demand  Reductions  Over 
a  30  Hour  Period  for  Case  3. 

Trial   Avg.  Hourly  Dem.  Red.   Stan.  Dev. 


1 
2 
3 
4 
5 
6 
7 
8 
9 
10 


0.  17. 
0.  17. 
0.  17. 
0.  17. 
0.  IX 
0.  17. 
0.  17. 
0.  17. 
0.  17. 
0.  17. 


1.  17. 
1.  17. 
1 .  27. 
0.  77. 
1.4X 
0.7X 


57. 
67. 

87. 
97. 


Sample  Size:  21  houses 


From  these  cases,  it  can  be  concluded  that  a 
sample  size  around   20  houses  will  be  enough  to  have 
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sufficiently  small  variance  in  the  hourly  demand  reduc- 
tion. 

10  Hour  Simulation 

To  gather  information  about  the  demand  reduction 
in  individual  hours  of  a  period,  another  set  of  simulations 
was  needed.  In  this  set  of  simulations,  load  curves  were 
generated  for  a  period  of  10  hours.  It  was  hypothesized 
that  the  systems  reached  steady-state  operation  fairly 
quickly,  making  a  10  hour  period  sufficient  for  this  simu- 
lation. Once  again  Tdrive=90  F.  The  simulations  had  the 
following  characteristics: 

1.  Load  curves  of  1-100  houses  were  generated 
(also  a  500  house  load  curve  was  generated  for 
case  3). 

2.  Load  curves  were  generated  for  cases  1-4. 

3.  Ten  independent  trials  were  run  at  each  sample 
size  for  each  case. 

4.  Controlled  and  uncontrolled  load  curves  were 
generated  at  each  sample  size  and  for  each 
case. 

5.  Demand  Reduction  was  calculated  on  an  hourly 
basis. 

6.  Corresponding  hourly  demand  reductions  from 
separate  trials  were  grouped  together.  First 
hour  demand  reductions  with  first  hour  demand 
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reductions,  second  hour  demand  reductions 
with  second  hour  demand  reductions  and  so  on. 
7.  For  each  group  of  hourly  demand  reductions, 
an  average  and  standard  deviation  were  calcu- 
lated. 
The  purposes  of  this  simulation  were;  1.  To 
gather  further  information  on  the  sample  size  necessary  to 
reduce  the  variation  of  the  data  to  a  reasonable  level  and 
2.  To  ascertain  if  indeed  steady-state  operation  is  reached 
fairly  quickly. 
Results 

The  average  demand  reduction  for  each  hour  as 
well  as  error  bars  of  *  or  -  2  standard  deviations  were 
plotted  for  each  sample  size  for  each  of  the  four  cases.  A 
sample  of  the  plots  are  shown  in  Figs  1-5.  This  shows  the 
plots  for  case  4.  The  plots  for  the  remaining  cases  are 
shown  in  Appendix  B  (case  1:  Figs  B-l  through  B-5,  case  2: 
Figs  B-6  through  B-10,  case  3:  Figs  B-ll  through  B-16). 
In  each  case  the  size  of  the  error  bars  decreased  as  the 
size  of  the  sample  increased.  However,  the  rate  at  which 
the  error  bars  decreased  seemed  to  drop  considerably  after 
the  21-house  samples.  This  leads  to  the  conclusion  that  a 
sample  size  of  21  houses  is  sufficiently  large  to  reduce 
the  variability  of  the  simulated  data  to  a  reasonable 
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level. 

It  is  also  noticed  from  Figs.  1-5  and  Appendix  B 
that  transient  effects  are  effectively  gone  after  the  first 
hour.  This  vindicates  the  use  of  a  10  hour  period. 
Starting  Conditions  Simulation 

To  examine  the  effects  of  the  initial  conditions  on 
the  results,  3  sets  of  initial  conditions  were  simulated: 

1.  All  a/c'c  initially  on,  starting  temperatures 
random. 

2.  All  a/c'c  initially  off,  starting  temperatures 
random. 

3.  All  a/c'c  randomly  off  and  on,  starting  temper- 
atures random. 

These  cases  were  simulated  at  Tdrive=95  F  for  cases  1- 
3  with  load  curves  of  20  houses.  The  demand  for  controlled 
and  uncontrolled  cases  was  averaged  on  an  hourly  basis  over 
10  hours  and  plotted.  Examples  of  the  plots  are  shown  in 
Figs.  6-8.  The  remaining  plots  are  shown  in  Appendix  C. 
Results 

In  all  three  cases,  the  controlled  case  seems  largely 
unaffected  by  the  changes  in  starting  conditions.  This  is 
because  the  control  forces  the  houses  to  get  into  a  pattern 
of  consumption  which  averages  smoothly  on  an  hourly  basis. 

In  case  1  the  uncontrolled  case  is  only  affected  in 
the  first  hour  because  regardless  of  initial  conditions, 
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the  a/c  will  be  forced  to  run  all  the  time. 

In  cases  2  and  3  however,  the  uncontrolled  case  shows 
that  the  difference  in  initial  conditions  makes  a  differ- 
ence. For  the  cases  where  the  a/c's  are  either  all  off  or 
on,  noticable  fluctuations  are  present  in  the  hourly  de- 
mand averages  (see  Figs.  6  and  7  as  well  as  Figs  C-l,  C-2, 
C-4,  and  C-5).  This  is  because  the  initial  states  force 
the  houses  into  a  consumption  pattern  that  is  repeated 
throughout  the  10  hour  period.  The  pattern  differs  from 
the  controlled  pattern  because  the  uncontrolled  case  does 
not  force  the  a/c's  off  regularly. 

The  completely  random  set  of  initial  conditions  pro- 
duced hourly  demand  curves  with  much  smaller  variations. 
This  can  be  seen  by  comparing  Fig.  8  with  Figs.  6  and  7 
(also  Figs  C-3,  C-6,  and  C-9  with  previously  mentioned 
Appendix  C  plots). 

This  confirms  that  the  scheme  used  to  make  the  initial 
states  random  was  effective. 
Effect  of  Natural  Duty  Cycle  on  Demand  Reduction 

From  the  sample  size  simulations  detailed  earlier,  it 
is  noticed  that  the  effectiveness  of  control  varies  ac- 
cording to  a/c  size.  It  is  hypothesized  that  this  is  due 
to  variations  in  the  natural  (uncontrolled)  duty  cycles  of 
the  a/c's.  Nordell  has  stated  that  control  is  only  effec- 
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tive  if  the  forced  (controlled)  duty  cycle  is  greater  than 
the  natural  duty  factor  of  the  a/c  [9].  Gustafson  reported 
a  similar  hypothesis  [12]  Neither  Gustafson  nor  Nordell 
offered  data  to  substantiate  their  claims.  This  set  of 
simulations  purposes  to  determine  if  this  relationship 
between  the  natural  and  forced  duty  cycles  has  this  pro- 
posed effect. 

Demand  reduction  curves  were  simulated  with  the 
following  criteria: 

1.  Load  curves  were  comprised  of  20  houses. 

2.  Controlled  and  uncontrolled  load  curves  were  simu- 
lated. 

3.  Percent  demand  reduction  =  uncontrolled  demand  - 
controlled  demand,  normalized  for  20  houses. 

4.  Hourly  demand  reduction  was  averaged  for  the  final 
9  hours  of  a  10  hour  period.  The  first  hour  was  not 
included  to  eliminate  the  transient  effects. 

5.  Natural  duty  cycles  for  the  a/c's  were  varied  from 
around  30'/.  to  100'/.. 

6.  At  each  value  of  duty  cycle,  10  independent  trials 
were  run. 

7.  Demand  reduction  was  averaged  for  the  10  trials.  A 
corresponding  standard  deviation  was  also  calcu- 
lated. 

8.  Percent  demand  reduction  was  plotted  as  a  function 

4G 


of  duty  cycle. 

These  simulations  were  performed  for  both  types  of 
control. 

Centralized  Control 

Percent  demand  reduction  curves  were  generated 
for  simulations  utilizing  centralized  control  for  cases  1- 
4.  This  was  done  using  two  different  control  strategies;  1. 
control  7. 5  out  of  30  minutes  and,  2.  control  2. 5  out  of  10 
minutes.  These  control  strategies  were  chosen  because  both 
have  a  maximum  controlled  duty  cycle  of  75%. 

Results 

From  the  demand  reduction  plots  it  can  be  seen 
that  demand  reduction  is  minimal  until  the  duty  cycle 
reaches  the  75%  point  (for  example,  refer  to  Figs.  9  and 
10  also  see  Figs  D-l,  D-3,  D-4,  D-8,  D-10,  and  D-ll).  This 
is  the  point  where  the  natural  duty  cycle  of  the  a/c 
exceeds  the  maximum  controlled  duty  cycle.  This  occurred 
in  every  case.  When  the  natural  duty  cycle  of  the  a/c  is 
larger  than  the  maximum  controlled  duty  cycle  during 
control,  the  a/c  is  able  to  run  enough  to  satisfy  its 
needs.  Once  the  natural  duty  cycle  reaches  757.,    however, 
the  a/c  is  no  longer  able  to  keep  up  with  the  heat  load 
when  control  forces  a  duty  cycle  of  75%.  This  causes  the 
inside  temperature  to  rise  and  net  demand  reductions  are 
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seen. 

The  temperature  rise  for  these  is  seen  in  Figs 
11-14  (see  also  Figs  D-2,  D-5,  D-6,  D-7,  D-9,  D-12,  D-13, 
and  D-14).  By  comparing  the  uncontrolled  temperature  with 
the  controlled  temperature  it  can  be  seen  that  the  con- 
trolled temperature  diverges  from  the  uncontrolled  temper- 
ature where  the  demand  reduction  varies  from  0.  It  di- 
verges in  the  direction  that  the  demand  reduction  varies 
from  0.  This  shows  the  correlation  between  inside  tempera- 
ture and  demand  reduction. 

One  other  interesting  effect  is  apparent  from 
Figs.  9  and  10.  Just  before  the  demand  reduction  starts  to 
rise  toward  maximum  reduction  a  dip  is  seen.  The  exact 
cause  of  this  is  not  known  for  sure.  It  is  hypothesized 
that  some  sort  of  resonance  phenomenon  is  responsible, 
which  is  a  function  of  interaction  between  natural  heating 
and  cooling  times  and  control  times.  The  interaction  be- 
tween the  heating  and  cooling  times  and  the  control  strat- 
egy might  force  the  system  into  a  situation  where  the  a/c 
is  reaching  the  lower  limit  of  the  temperature  band  when 
control  begins.  At  the  end  of  control,  the  a/c  will  turn 
immediately  on  regardless  of  the  temperature.  Thus,  almost 
a  full  extra  period  of  on  time  is  required,  producing  a 
rise  in  demand  from  the  uncontrolled  case.  Such  a  condi- 
tion could  exist  for  each  case.  However,  the  size  of  the 
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dip  appears  to  be  different  for  each  case.  Plots  with  more 
plotted  points  around  the  dips  for  Figs.  9  and  10  are 
shown  in  Figs  E-l  and  E-2  in  Appendix  E. 
Load  Leveler  Control 

For  the  load  leveler  control  scheme  the  demand 
reduction  simulations  were  run  for  cases  1-3. 
Results 

The  results  of  this  simulation  were  very  similar 
to  those  for  the  centralized  case.  Significant  demand  red- 
uction was  not  achieved  until  the  natural  duty  cycle  passed 
7555.  This  number  also  corresponded  to  the  maximum  con- 
trolled duty  cycle.  Examples  of  these  results  are  shown  in 
Figs.  15  and  IS  (see  also  Fig.  F-l). 

Also,  once  again,  the  temperature  of  the  con- 
trolled case  diverges  where  the  demand  reduction  varies 
from  0.  This  is  shown  in  Figs.  17  and  18  (compare  to  uncon- 
trolled case  shown  in  Figs.  12  and  14  compare  also  Fig.  D-5 
to  Fig.  F-2). 

The  demand  reduction  dip  noticed  in  the  central- 
ized control  case  is  also  evident  with  the  load  leveler. 
See  Figs.  15  and  16  as  well  as  the  remaining  case  shown  in 
Appendix  F. 
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Diurnally  Varying  Driving  Temperature  Simulations 

Simulations  were  performed  for  which  the  driving 
temperature  varied  diurnally.  The  driving  temperature  was 
piece-wise  constant  sinusoidal  as  mentioned  earlier.  The 
temperature  at  noon  and  midnight  was  set  at  85  F.  The  peak 
temperature  occurred  at  6  and  was  varied  according  to  the 
needs  of  the  simulations.  It  is  assumed  that  the  driving 
temperature  is  5  degrees  higher  than  the  outside  tempera- 
ture and  lags  the  outside  temperature  by  2  hours.  On  a 
typical  summer  afternoon  the  outside  temperature  peaks  at 
4  p. m.  while  this  driving  temperature  peaks  at  6  p. m.  The 
driving  temperature  is  higher  than  the  outside  temperature 
because  of  the  heat  stored  in  the  structure  of  the  house. 

This  piece  wise  constant  sinusoidal  temperature  very 
nearly  approximates  an  actual  afternoon.  The  12  hours 
included  in  the  simulation  are  from  12  noon  to  12  mid- 
night. Simulations  were  performed  with  both  types  of  con- 
trol, centralized  and  load  leveler. 
Centralized  Control  Simulations 

Centralized  control  simulations  were  performed  with 
the  following  characteristics: 

1.  Part  of  the  day  was  uncontrolled  and  part  was 
controlled.  The  first  two  hours  (12  noon  to  2 
p.m.  )  were  uncontrolled,  the  next  six  (2  p.m.  to  8 
p.m.  )  controlled,  and  the  final  four  (8  p.m.  to  12 

GO 


midnight)  uncontrolled.  This  allowed  a  view  of  the 
effects  of  starting  and  stopping  control. 

2.  Control  was  exercised  by  automatically  turning  all 
a/c's  off  for  the  first  7.5  minutes  of  each  half 
hour  during  the  control  period. 

3.  Load  curves  of  20  houses  were  used. 

4.  Cases  1-3  were  simulated  to  see  the  effects  on 
different  classes  of  houses. 

5.  Peak  temperatures  were  varied  from  90  -  110  F  by  5 
degrees  per  simulation  (case  1  was  only  simulated 
at  90  and  95). 

6.  One-hour  aggregate  average  demand  and  one-hour 
average  temperature  for  a  typical  house  were  calc- 
ulated and  plotted. 

7.  Five-minute  aggregate  average  demand  and  five- 
minute  average  temperature  of  a  typical  house  from 
the  sample  were  calculated  and  plotted. 

8.  Demand  was  calculated  for  20  houses  and  normalized 
to  a  kW/house  basis. 

9.  In  the  afore-mentioned  plots  the  data  points  are 
an  average  over  either  5  minutes  or  60  minutes 
(depending  on  the  type  of  plot).  The  data  points 
are  placed  at  the  end  of  the  5  or  60  minute 
period.   Then  a  curve  is  drawn  through  the  data 


SI 


points  for  ease  of  viewing.  Another  possible  way 
was  to  draw  a  histogram  plot. 

Uncontrolled  days  were  also  simulated  under  the  same 
load  conditions.  These  curves  were  compared  with  the  days 
that  included  control. 
Results 

Several  things  were  noticed  from  the  demand  and  temp- 
erature curves  mentioned  earlier. 

For  case  1,  peak  temperatures  of  90  and  95  produced  a 
large  reduction  in  demand.  This  is  because  the  temperature 
was  high  enough  and  the  a/c  small  enough  that  the  a/c  was 
forced  to  run  almost  all  the  time  to  try  to  keep  up  with 
the  driving  temperature  in  the  uncontrolled  case.  When 
control  is  exercised,  the  a/c  is  not  allowed  to  run  as 
much  as  it  requires.  Therefore,  demand  is  reduced  and 
inside  temperature  rises  in  the  controlled  case.  This  is 
seen  best  in  Figs.  19  and  20  (see  also  Figs.  G-2  and  G-4 
in  Appendix  G). 

For  case  2,  small  demand  reductions  at  best  were 
evident  when  the  peak  temperatures  were  90,  95,  and  100  F 
(see  Figs.  H-l  through  H-3).  Reductions  were  accompanied 
by  a  small  rise  in  average  inside  temperature  (see  Figs. 
H-6  through  H-8).  When  the  peak  tempertures  reached  105 
and  110  F,  large  demand  reductions  were  seen.  This  is 
because  the  natural  duty  cycle  of  the  a/c's  reaches  a 
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higher  level.  Control  forces  the  a/c's  to  run  less  than 
they  need  to  in  order  to  keep  pace  with  the  driving  temp- 
erature. This  results  in  a  demand  reduction  and  a  rise  in 
average  inside  temperature.  Examples  of  these  results  are 
shown  in  Figs.  21  and  22  (see  also  H-5  and  H-10).  These 
results  are  consistent  with  what  was  seen  earlier  in  the 
plots  of  percent  demand  reduction  as  a  function  of  duty 
cycle.  Remaining  plots  for  case  2  are  shown  in  Appendix  H. 

Case  3  showed  small  demand  reductions  at  best  at  the 
lower  temperatures  (see  Figs.  1-1  to  1-3).  At  the  higher 
peak  temperatures  the  demand  curves  showed  a  definite 
small  demand  reduction.  For  example,  see  Fig  23  (also  Fig 
1-5).  However,  the  peak  temperature  never  did  get  high 
enough  to  force  case  3  to  show  larger  demand  reduction. 
Where  demand  reductions  were  evident,  they  were  accom- 
panied by  a  corresponding  rise  in  average  inside  tempera- 
ture. For  example  see  Fig.  24  (also,  see  Figs  1-6,  1-7,  I- 
8  and  1-10). 

This  shows  that  the  potential  for  demand  reduction  is 
dependent  upon  the  class  of  house  that  is  being  con- 
trolled. For  houses  with  larger  a/c's,  it  is  doubtful  that 
the  days  would  ever  get  hot  enough  to  achieve  very  signi- 
ficant demand  reductions.  For  houses  with  smaller  a/c's  it 
is  likely  that  demand  reductions  would  be  achieved.  It  is 
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also  evident  that  demand  reduction  is  achieved  at  the  cost 
of  raising  average  inside  temperature. 

Once  control  was  released,  the  controlled  demand 
curves  tended  to  overshooot  the  demand  of  the  uncontrolled 
case.  This  is  shown  especially  well  in  Fig.  19  (see  also 
Fig  H-4).  This  was  due  to  the  a/c  trying  to  catch  up  for 
the  rise  in  inside  temperature.  The  rise  in  inside  temp- 
erature forces  tha  a/c's  to  run  continuously  for  a  long 
time  to  reduce  the  inside  temperature  to  a  comfortable 
level.  It  should  be  noted  that  this  is  more  prominent  as 
the  peak  temperature  brought  the  natural  duty  cycle  of  the 
a/c  closer  to  the  100Z  mark. 

Figs.  25a  and  25b  show  an  examples  of  the  5-minute 
demand  curves  under  controlled  and  uncontrolled  condi- 
tions. It  was  noticed  that  control  tended  to  remove  the 
natural  diversity  of  the  a/c's.  This  becomes  more  severe 
at  higher  peak  temperatures.  The  synchronization  tended  to 
produce  large  oscillations  in  the  demand  both  during  and 
after  control.  The  5-minute  average  temperatures  of  a 
typical  house  for  the  above  cases  are  shown  in  Figs.  26a 
and  26b.  From  these  plots  it  can  be  seen  that  control 
forces  the  5-minute  average  temperature  to  rise  well  above 
the  thermostat  set  temperature.  Also  it  can  be  seen  that 
control  forces  the  temperature  oscillations  to  be  more 
frequent.  Further  examples  of  the  above-mentioned  effects 

70 


CM 

C\J 

a 
h' 

0 

+J 

Q) 

_Q 


on 
a 

CD 


D 

JZ 

a. 


L 


QJ 

E 


x  o 

O  -u 
CN    C 

o 

t-.   CJ 


CO 

X3  a)  ■ 

CD  W   I 

N  3 

■H  O 

'-H  X   • 

re 


O     CD 
2    01   . 
CD 
-O 

c    h 

CD    O 

e  u- 

(D 

Q  -O 
o 

CD    — > 
CJ>  u  ■ 
CD    CD 
£*  Q_   i 
CD 

>    U  I 
<T    D 
O 
1)  X 


E    L/> 

a  a 


D  eg 


CD     CD 
N     <D 


>  CD 
•H  > 
U.   O   i 


a 


(  "Bad      "uiuau      'urui_g)      puotusp 

71 


CM 

O 

l" 

0 

+> 

Ql 
XI 


m 
o 

CD 

n" 
o 

c 

Q- 


a 

(VI 

.— i 

i 

Q. 

CO    E 

CD     CD  (*_ 

CO   1—    O 

D 

a 

o    cn  o 

x    c    3 

• 

■H   ^ 

a 

CD     >     CO 

a 

CU  CO  CO 
N     D 

■HOI 

CD 

-H  X  JJ 
CD  -H 
E  cm  3 

rs 

(H 

D 

a 

(1) 

L 

and,  Mo 
or  Case 
onstant 

to 

(1 

E     U_     C_J 

E 

Q   ID     CD 

■<-» 

O     CO 

+J 

CD   -H   -H 

Di   U     3 

a 
a 

CD     CD      1 

u  a.   qj 

CD  O 
>     (-.     CD 

* 

<r  u  -h 

o  Q_ 
CD   X 

a 
a  a" 

d 


•H  CD 

£  a  b    ■ 

>     CD  CD   u"\ 

■H     >  U  O 

Ll.   O  CD  <— I 


)ad       'ujjou       *ur  Ui— ^)      pUDUJSp 


72 


a 
t\i 


in 

OD 


a 

CD 


in 


a 


a 
ad 


in 

ID 


Q.  E 
>,  0)  ■ 


a 

o   =>  c 

(*-   -H    O 

u 

CD  O 

03 

u 

J-UT3 

4J      C     O 

^N 

CD     CO  -H 

10 

L 

t-   -l->     tj 

CD     CO     CD 

a.  c  a_ 

i ) 

( 

E    O 

a 

\-> 

CD     O 

ID 

Ql 
E 

CD     CO   X 

-H     3   CM 

■rt 

CO      1     — 1 

-P 

C     CD 

H     CJ     u 

a 

CD 

(D  -h   e-i 

u 

OICL     CD 

CD 
CD    CO  i 


JX     CD 
I    CD    N 

>     Q.r-1 

)         |  CD 


CjBop)     ©-inq.Duaduisj_     sprsuf 


7  3 


o 
c\i 


a 
d 


a  e 

>%   CD 


a 

u 

u 

<d  a 

QD 

3  +>  -a 

+J    c    o 

CO     CD   -H 

<*> 

t-   -JJ     f-, 

i/i 

CD     CO     0) 

L 

CL   C   Q_ 

£    O 

u 

1 

<D  CJ    u 

Q 

^ 

>—           3 
0)    o 

(D    CO  x 

ID 

•H    3lN 

CO      1     <-l 

'rt 

C     CD 

+J 

hh     CJ     CD 

0) 

a 

cno_    cu 

u 

CD            > 

a 


o 
cu   co  m 

-•-»  a  a 

3    o  -H 

C  X     II 

■h       -* 

>_   CM     CO 


in 

03 


03 


in 


a 


U3 


(-|Bap)     aunq.D_jadujsj_    sprsuj 
74 


can  be  seen  in  the  5-minute  demand  and  temperature  plots 
in  Appendices  G,  H,  and  I. 

For  case  2,  the  effects  on  the  demand  and  temperature 
curves  seen  at  peak  temperatures  of  105  and  110  F  mirror 
those  which  occurred  in  case  1  at  peak  temperatures  of  90 
and  95  F.  This  is  due  to  the  effect  of  the  increase  of  the 
natural  duty  cycle  at  the  higher  peak  temperatures  for 
case  2.  If  even  higher  peak  temperatures  were  used,  the 
same  effect  would  be  seen  in  case  3. 
Load  Leveler  Simulations 

Load  leveler  simulations  were  performed  with  the 
following  criteria: 

1.  Simulations  were  performed  for  peak  temperatures 
of  100,  105,  and  110  F. 

2.  Control  started  at  Tdrive=100  F  and  ended  at 
Tdrive=93  F. 

3.  Load  curves  had  20  houses. 

4.  Cases  2  and  3  were  simulated  (case  1  was  simulated 
at  Tdrive=100  F  but  the  results  were  trivial). 

5.  Demand  and  temperature  calculations  were  identical 
to  those  for  centralized  control.  The  data  is  also 
plotted  in  the  same  manner  as  the  plots  for  cen- 
tralized control. 

6.  Control  was  exercised  as  stated  earlier  for  load 
leveler  control. 
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The  purposes  of  performing  these  simulations  were  to 
determine  the  effects  of  load  leveler  control  and  to 
compare  the  two  methods  of  control. 
Results 

For  case  1,  the  load  leveler  produces  a  very  large 
demand  reduction  and  rise  in  inside  temperature.  For  ex- 
ample see  Figs.  27  and  28.  These  results  occur  because  the 
load  leveler  only  exercises  control  when  Tdrive  is  greater 
than  100  F.  At  these  temperatures,  the  case  1  a/c  runs 
continuously  in  the  uncontrolled  state.  When  control 
forces  the  a/c  off,  demand  reduction  and  a  temperature 
rise  are  the  results.  Five  minute  demand  and  temperature 
plots  for  case  1  are  shown  in  Figs.  J-l  and  J-2  in  Appen- 
dix J. 

For  case  2,  a  small  demand  reduction  is  seen  at  a 
peak  temperature  of  100  F  (see  Fig.  K-l,  Appendix  K).  With 
a  higher  value  of  T_peak,  a  larger  demand  reduction  is 
seen.  For  example,  see  Fig.  29  (also  Fig.  K-3).  Once 
again,  demand  reduction  is  always  accompanied  by  a  rise  in 
inside  temperature.  See  Fig.  30  (also  Figs.  K-4  to  K-6). 

The  results  seen  with  case  3  are  very  similar  to 
those  seen  earlier  using  centralized  control.  Demand  re- 
ductions are  small  because  Tdrive  never  gets  high  enough 
to  force  large  demand  reduction.  For  example,  see  Fig.  31 
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(also  Figs.  L-l  and  L-3,  Appendix  L).  Average  inside 
temperature  rises  where  demand  reductions  are  seen.  This 
is  shown  in  Fig.  32  (also  see  Figs.  L-4  and  L-6). 

Upon  comparing  the  load  leveler  control  plots  with 
centralized  control  plots,  several  things  are  apparent. 

The  demand  reductions  produced  by  the  load  leveler 
during  the  peak  period  were  similar  to  those  produced  by 
centralized  control.  However,  a  significant  difference  is 
seen  in  the  demand  pattern  in  the  period  following  the 
release  of  centralized  control.  This  can  be  seen  by  com- 
paring identical  cases  from  Appendices  G-L.  Load  leveler 
control  decreased  the  size  of  after  control  demand  peaks 
(compare  Figs.  27  and  21  as  well  as  Figs.  K-3  and  H-5). 
This  occurs  because  the  load  leveler  doesn't  cease  control 
until  the  driving  temperature  is  sufficiently  reduced. 
This  forces  the  a/c  to  reduce  the  inside  temperature  at  a 
slower  rate  than  if  it  were  released  of  control  earlier  in 
the  day.  This  same  effect  could  be  achieved  by  the  cen- 
tralized control  by  either  making  control  temperature 
dependent  or  increasing  the  length  of  the  control  period. 

The  temperature  effects  of  the  load  leveler  are  simi- 
lar to  those  seen  for  the  centralized  control.  One  excep- 
tion is  that  the  temperature  didn't  drop  as  rapidly  at  the 
end  of  the  day  with  the  load  leveler.  To  see  this  compare 
Fig.  30  with  Fig.  22.  This  occurred  because  the  load 
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leveler  is  temperature  controlled.  Control  does  not  cease 
at  a  set  time.  Instead  it  continues  until  the  driving 
temperature  is  sufficiently  lowered. 

Another  significant  difference  in  the  two  control 
methods  can  be  seen  by  looking  at  the  5-minute  demand 
curves.  The  load  leveler  did  not  remove  the  natural  diver- 
sity of  the  houses.  This  is  because  each  house  is  con- 
trolled independently.  This  resulted  in  smaller  oscil- 
lations in  5-minute  average  demand.  To  see  this  compare 
Figs.  25  and  33  (also  compare  Figs.  L-9  and  1-20,  Figs.  L- 
S  and  1-19,  Figs.  1_7  and  1-18,  Figs.  K-9  and  H-20,  Figs. 
K-8  and  H-19,  as  well  as  Figs.  K-7  and  H-18).  Also  notice 
that  once  control  starts  the  load  leveler  control  sets  a 
repetitive  pattern  of  demand  in  the  cases  where  the 
natural  duty  cycle  is  higher  than  75%.  If  the  number  of 
houses  in  the  sample  were  very  large  then  the  demand  curve 
should  be  a  straight  line  at  0. 75.  More  sophisticated 
central  control  strategies  (in  which  instead  of  synchron- 
ized control,  staggered  control  is  exercised)  could 
achieve  the  same  result.  The  corresponding  5-minute  aver- 
age temperature  plot  is  shown  in  Fig.  34.  This  plot  shows 
that  the  load  leveler  forces  the  temperature  to  decrease 
more  slowly  toward  the  end  of  the  12  hour  period  than  the 
centralized  control  case.  This  is  due  to  the  temperature- 
controlled  nature  of  the  load  leveler  control. 
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CONCLUSIONS 
In  the  last  20  years,  it  has  become  clear  that  peak 
electricity  demands  cannot  be  allowed  to  rise  at  the  cur- 
rent rate.  The  costs  incurred  by  utilities  in  building  the 
new  generation  facilities  needed  to  meet  the  peak  demand 
are  prohibitive.  Also,  the  current  peaks,  which  can  be  much 
higher  than  average  daily  demand,  force  utilities  to  rely 
on  expensive  peak  generating  facilities.  These  reasons 
alone  make  it  imperative  that  utilities  and  customers  look 
for  ways  to  reduce  peak  demands. 

It  is  theorized  that  direct  load  control  can  be  used 
to  help  alleviate  the  problem  of  rising  peak  demand.  Some 
experimental  work  has  been  done  by  utilities  and  inde- 
pendent researchers  alike  to  determine  if  this  is  indeed 
the  case.  Most  of  the  work  done  has  taken  the  form  of  field 
experiments.  So  far,  very  little  in  the  way  of  conclusive 
results  have  been  produced.  Some  work  has  shown  control  to 
be  beneficial  while  other  work  has  not. 

This  research  centered  on  computer  modelling  and  simu- 
lating direct  load  control  experiments  on  residential  cus- 
tomers. The  loads  of  interest  were  the  air-conditioners 
(a/c's)  used  by  residential  customers.  Load  control  was 
performed  in  two  different  ways: 

1.  Centralized  control  where  the  loads  are  controlled 
from  one  central  location.  The  control  schemes  and 

87 


times  are  identical  for  each  house. 
2.  Load  leveller  control  where  a  device  is  installed 
at  each  house  to  determine  exactly  when  control 
takes  place  for  that  particular  house. 
Details  of  the  development  and  utilization  of  the 
model  have  been  presented  in  this  report.  The  remainder  of 
this  section  will  present  the  major  findings  of  the  re- 
search as  well  as  some  suggestions  for  further  work. 
Haior  Findings 

1.  Load  control  will  only  be  effective  if  the  maximum 
forced  duty  cycle  during  control  is  less  than  the  natural 
duty  cycle  if  the  a/c  is  uncontrolled.  In  fact,  if  this  is 
not  the  case,  it  is  possible  that  load  control  will  have 
adverse  effects.  Some  cases  were  found  where  controlling 
produced  a  net  increase  in  demand  compared  to  the  uncon- 
trolled case. 

2.  Demand  reductions  are  always  accompanied  by  a  rise 
in  the  inside  temperature  of  the  house.  Demand  reductions 
are  achieved  only  by  forcing  the  a/c  to  be  off  when  the 
thermostat  calls  for  cooling.  This  forces  the  inside  temp- 
erature to  rise  above  the  temperature  desired  by  the 
thermostat. 

3.  Load  leveler  control  was  observed  to  have  some 
advantages  over  centralized  control. 


88 


a.  The  load  leveler  proved  to  be  more  effective  in 
limiting  after-control  peaks  in  demand.  In  some 
cases,  centralized  control  can  produce  an  after- 
control  peak  which  is  larger  than  the  daily  peak 
would  have  been  had  control  not  been  used.  This 
was  due  to  the  nature  of  the  control  period 
lengths  for  the  two  types  of  control.  Actually,  a 
different  specification  of  control  period  for 
centralized  control  could  produce  similar  results. 
However,  the  load  leveler  does  this  automatically. 

b.  The  load  leveler  preserves  the  natural  diversity 
(perhaps  even  enhances  it)  of  the  houses.  Central- 
ized control  was  observed  to  produce  a  synchrcn- 
icity  among  the  houses.  This  would  place  undue 
stress  on  utility  equipment,  reducing  useful  life. 
The  control  strategy  of  centralized  control  could 
be  altered  to  eliminate  the  sychronicity.  However, 
the  load  leveler  does  this  automatically  as  a  re- 
sult of  the  nature  of  the  device. 

4.  The  temperature  and  demand  effects  of  the  two  types 
of  control  proved  to  be  very  similar. 
Suggestions  for  Further  Research 

From  this  research,  it  seems  pertinent  that  some  fur- 
ther investigation  of  load  leveler  control  be  undertaken. 
It  would  be  very  interesting  to  determine  how  this  type  of 
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control  fares  in  actual  field  tests.  Load  leveler  control 
could  then  be  compared  with  centralized  control  in  terms  of 
field  experiment  results. 

It  is  hypothesized  that  load  leveler  control  should  be 
less  expensive  to  implement  than  centralized  control.  De- 
tailed studies  of  this  hypothesis  need  to  be  undertaken. 

There  were  some  interesting  effects  that  showed  up  in 
simulating  load  control  experiments.  The  cases  where  load 
control  actually  produced  a  net  gain  in  demand  could  be 
investigated  further.  It  is  hypothesized  that  some  sort  of 
resonance  phenomenon  could  be  present.  This  could  be  be- 
tween the  natural  heating  and  cooling  times  and  control 
strategy  at  particular  driving  temperatures.  It  is  quite 
possible  that  such  a  situation  exists  for  each  class  of 
house  examined  in  this  research.  It  could  be  interesting 
and  useful  to  know  what  is  the  cause  of  this  phenomenon. 
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APPENDIX  A 


DATA  TABLES  FOR  CASES  1-3  FOR  30 
HOUR  SIHULATION  WITH  SAMPLE  SIZES  FROM 
-100  HOUSES  USING  CONSTANT  DRIVING  TEMPERATURE 


DATA  FOR  CASE  1: 

TABLE  C-ll  Average  Demand  Reduction  and  Standard  Deviation 
for  a  30  Hour  Period. 

Trial   Avg.  Dem.  Red.    Stan.  Dev. 


1 

22.  87. 

5.47. 

2 

22.  87. 

5.  37. 

3 

22.  77. 

5.  77. 

4 

22.  87. 

5.  87. 

5 

22.  47. 

5.  87. 

6 

22.  47. 

6.  07. 

7 

22.  87. 

5.  37. 

8 

22.  87. 

5.  87. 

9 

22.  87. 

5.  87. 

10 

22.  67. 

5.  47. 

Sample  Size:  1  house 


Table  C-2:  Average  Demand  Reduction  and  Standard  Deviation 
for  a  30  Hour  Period 

Trial   Avg.  Dem.  Red.    Stan.  Dev. 


1 

22.  77. 

3.  77. 

2 

22.  67. 

5.  07. 

3 

22.  67. 

4.  27. 

4 

22.  77. 

3.  47. 

5 

22.  67. 

3.  97. 

6 

22.  67. 

2.  97. 

7 

22.  77. 

4.  47. 

8 

22.  77. 

3.  27. 

9 

22.  67. 

4.  27. 

10 

22.  77. 

4.  87. 

Sa 

imple  Size:  11 

houses 

Table  C-3:  Average  Demand  Reduction  and  Standard  Deviation 
for  a  30  Hour  Period. 


Trial 

Avg. 

Dem.  Red. 

St 

an.  Dev 

1 

22.  67. 

4.  27. 

2 

22.  67. 

4.  27. 

3 

22.  77. 

3.  97. 

4 

22.  67. 

3.77. 

5 

22.  77. 

3.  57. 

Sample  Size:  50  houses 
A-l 


Table  C-4:  Average  Demand  Reduction  and  Standard  Deviation 
for  a  30  Hour  Period. 


DATA  FOR  CASE  2: 

Table  C-5:  Average  Demand  Reduction  and  Standard  Deviation 
for  a  30  Hour  Period. 

Trial   Avg.  Dem.  Red.    Stan.  Dev. 


Dem.  Red. 

St 

an. 

Dev 

22.  67. 

3. 

37. 

22.  67. 

4. 

2% 

22.  67. 

4. 

17. 

22.  77. 

4. 

0  V. 

22.  77. 

3. 

B7. 

Size: 

100 

h 

□uses 

1 

2.  87. 

0.  ox 

2 

2.  87. 

0.  07. 

3 

2.  77. 

0.  17. 

4 

2.77. 

0.  17. 

5 

2.  97. 

0.  97. 

6 

3.  07. 

1.07. 

7 

2.97. 

0.57. 

8 

2.  77. 

0.  17. 

9 

2.  87. 

0.  47. 

10 

2.87. 

0.  27. 

Sample  Size:  1  house 

Table  C-6:  Average  Demand  Reduction  and  Standard  Deviation 
for  a  30  Hour  Period. 


•rial 

Avg. 

Dem.  Red. 

St 

an.  Dev 

1 

2.  87. 

0.  47. 

2 

2.  87. 

0.  47. 

3 

2.87. 

0.  37. 

4 

2.B7. 

0.  47. 

5 

2.87. 

0.  37. 

6 

2.  97. 

0.  67. 

7 

2.  87. 

0.  37. 

8 

2.87. 

0.  37. 

9 

2.  87. 

0.  37. 

10 

2.  87. 

0.  57. 

Sample 

Size: 

10 

houses 

A-2 


em.  Red. 

St 

an. 

Dev. 

2.6X 

0. 

47. 

2.  67. 

0. 

47. 

2.  6X 

0. 

4"/. 

2.  ex 

0. 

53! 

2.  ex 

0. 

5X 

Size: 

50 

h 

ouses 

Table  C-7:  Average  Demand  Reduction  and  Standard  Deviation 
for  a  30  Hour  Period. 


Table  C-6:  Average  Demand  Reduction  and  Standard  Deviation 
for  a  30  Hour  Period. 


Sample  Size 


em.  Red. 

St 

an. 

Dev 

2.  ex 

0. 

4X 

2.  ex 

0. 

47. 

2.  ex 

0. 

47 

2.  67. 

0. 

47. 

2.  ex 

0. 

47. 

ize: 

100 

houses 

CASE  3  DATA: 


Table  C-9:  Average  Demand  Reduction  and  Standard  Deviation 
for  a  30  Hour  Period. 

Trial   Avg.  Dem.  Red.    Stan.  Dev. 


1 

0.  IX 

3.  47. 

2 

0.  IX 

3.  37. 

3 

0.  IX 

4.  17. 

4 

0.  IX 

3.  77. 

5 

0.  17. 

3.  17. 

6 

0.  IX 

3.  37. 

7 

0.  17. 

3.  57. 

8 

0.  17. 

3.  97. 

9 

0.  17. 

3.  37. 

10 

0.  OX 

2.  77. 

Sample  Size:  1  house 


A-3 


Table  C-10:  Average  Demand  Reduction  and  Standard  Deviation 
for  a  30  Hour  Period. 


rial 

Avg. 

Dem.  Red. 

Stan.  Dev. 

1 

0.  17. 

1.4X 

2 

0.  1% 

1.3X 

3 

0.  1% 

0.  97. 

4 

0.  IX 

0.  87. 

5 

0.  IX 

0.  B7. 

6 

0.  IX 

1 .  47. 

7 

0.  IX 

2.  37. 

8 

0.  IX 

0.  37. 

9 

0.  IX 

0.  B7. 

10 

0.  IX 

1 .  77. 

Sample  Size:  11  houses 


Table  C-ll:  Average  Demand  Reduction  and  Standard  Deviation 
for  a  30  Hour  Period. 

Trial   Avg. 

1 
2 
3 
4 

5 


'em.  Red. 

St 

an. 

Dev. 

0.  IX 

0. 

77. 

0.  IX 

0. 

97. 

o.  ix 

1. 

17. 

0.  IX 

0. 

77. 

o.  ix 

1. 

07. 

Sample  Size:  50  house 


Table  C-12:  Average  Demand  Reduction  and  Standard  Deviation 
for  a  30  Hour  Period. 

Trial  Avg.  Dem.  Red.  Stan.  Dev. 

1  0.  17.  0.57. 

2  0.  IX  0.  57. 

3  0.  IX  0.  6X 

4  0.  IX  0.  87. 

5  0.  IX  1.07. 

Sample  Sizes  100  houses 
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APPENDIX  B 


PLOTS  OF  HOURLY  AVERAGE  DEMAND  REDUCTION 

UPON  CONTROL  (IN  PERCENT)  FOR  EACH  OF  10 

HOURS  FOR  CASES  1-3.  SAMPLE  SIZES  VARY  FROM 

1-100  HOUSES  WITH  A  CONSTANT  DRIVING 

TEMPERATURE  OF  90  F.  PLOTS  SHOW  AVERAGE 

HOURLY  DEMAND  REDUCTION  PLUS  OR  MINUS  TWO 

STANDARD  DEVIATIONS 
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APPENDIX  C 


PLOTS  OF  ONE-HOUR  AVERAGE  DEMAND 

OVER  A  10  HOUR  PERIOD  WITH  AND  WITHOUT 

CONTROL.  CASES  1  AND  3  ARE  SHOWN. 

THREE  DIFFERENT  SETS  OF  STARTING 

CONDITIONS  ARE  USED 
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APPENDIX  D 


PERCENT  DEMAND  REDUCTION  AND  AVERAGE 

AGGREGATE  TEMPERATURE  PLUS  OR  MINUS  TWO 

STANDARD  DEVIATIONS  AS  A  FUNCTION  OF  THE 

NATURAL  DUTY  CYCLE  OF  THE  AIR  CONDITIONER. 

METHOD  OF  CONTROL  FOR  THESE  PLOTS  IS 

CENTRALIZED  WITH  VARYING  STRATEGIES 
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APPENDIX  E 


REPLICATIONS  OF  FIGS.  9  AND  10 

WITH  110RE  DATA  POINTS  BETWEEN  DUTY 

CYCLES  OF  60  AND  80 
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APPENDIX  F 


CASE  2  PLOTS  OF  PERCENT  DEMAND  REDUCTION  AND 

AVERAGE  AGGREGATE  TEMPERATURE  PLUS  OR 

MINUS  TWO  STANDARD  DEVIATIONS  AS  A  FUNCTION 

OF  THE  NATURAL  DUTY  CYCLE  OF  THE  AIR 

CONDITIONER.  METHOD  OF  CONTROL  IS  LOAD 

LEVELER  TYPE. 
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APPENDIX  G 


PLOTS  OF  5  AND  60  MINUTE  AVERAGE  DEMAND 

(NORMALIZED  FOR  20  HOUSES)  AND  5  AND  60 

MINUTE  AVERAGE  TEMPERATURE  (FOR  A  TYPICAL 

HOUSE)  OVER  A  10  HOUR  PERIOD  FOR  CASE  1. 

CONTROL  IS  CENTRALIZED 
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APPENDIX  H 


PLOTS  OF  5  AND  60  MINUTE  AVERAGE  DEMAND 

(NORMALIZED  FOR  20  HOUSES)  AND  5  AND  60 

MINUTE  AVERAGE  TEMPERATURE  (FOR  A  TYPICAL 

HOUSE)  OVER  A  10  HOUR  PERIOD  FOR  CASE  2. 

CONTROL  IS  CENTRALIZED 


C\J 
CM 

a 


a 
+j 

Qi 

-0 


m 
a 

CD 

if 
o 

£. 
Q. 


1           1           1 

1 

/ 

9 

j 

■o 
a 

0 
L 
+J 
C 

a 

■-i 

r-l 

0 
L 
+1 
C 

0 

u 
c 

u 

1 

3 

1 

i 

1          1          1 

\ 

1 

1 

- 

a 

U 

DO 

c 

=1 

CO 

• 

a 

JJ 

a 

X 

—i 

0) 

i—i 

o 

c 

O 

b 

o 

CM 

c 

t_! 

Eh 

o 

ai 

a 

C_J 

to 

<*- 

a 

■ 

g 

a 

■o 

a 

1 

oj 

u 

(D 

N 

(0 

O 

00 

-H 

3 

u 

o 

■  •I 

rs 

03 

= 

Q_ 

U) 

E 

(4 

CM 

to 

L 

o 

■H 

a 

a 

£ 

V 
CO 
CD 

hi 

-a 

U 

3 

id" 

QI 

c 
n 

u 

4-J         • 

CO   L_ 

E 

E 

o 

u 

■H 

O 

u. 

o  a 

a 

Q.O 

-P 

"O 

E 

Qj 

0 

CD   (*_ 

a 

O" 

•H 

t—     O 

a 

09 

CO 

CP   CD 

• 

a 

X 

C     3 

a 

a 


a 
o 

00 


a 
a 
in 


a 
a 


a 
a 

(M 


a 
ad 

a 


■h  -n  *o  a. 


I      CO     N     CO 


X     CD     CO   4_) 


("Bad      "waou      "utiu— gg)     puDiuap 

H-l 


CM 

(\J 

a 

if 

D 
+J 

01 
XI 


m 

a 


0 
Q. 


1 

1                 1               VI 

i 

■Q 

a 

- 

a 

>— i 

- 

1 

i—* 

0 

<-* 

L 

1  / 

0 

+J 

1/ 

L 

c 

■P 

0 

c 

u 

a 

C 

I 
1 
\ 

u 

i 

Z) 

1 
\l 

\\ 
\\ 

\\ 

\\ 

1 

1           1           1 

1 

a 
a 


D 

a 

CO 


o 

ll- 

■H 

a 

"O     CO 

"1" 

, 

CD     (D 

(D 

CD 

N     (0 

a 

^H      O 

■H 

/*N 

CD   X 

EL 

U) 

E 

L 

U   M 

CO 

a 

r. 

o 

■H 

a 

\^ 

CO 

0} 

-   CO 

t- 

« 

"O    U 

~ 

ID 

ai 

c 

4->         • 

E 

ro   t.. 

CD   U_ 

E   o 

u 

ri 

CD  •+- 

0)   lA 

+J 

Q 

CLO 

13 

£ 

a 

a   c 

0)   U- 

cn-^ 

l—    o 

a 

ro   t-. 

u   o 

CTi   QJ 

*+• 

0)  a. 

C    - 

a 
a 

10 


a 
a 


a 
a 
tvi 


a 
ad 
d 


<  u  >  en 


c 

CM 

• 

0J 

■-H 

I — i 

"O 

Q_ 

!fc_ 

<u 

1 

CD 

N 

ED 

>s 

•H 

-1_) 

U 

i— I 

-C 

X 

CD 

r 

4-) 

--H 

> 

h 

•H 

tn 

□ 

j-j 

1^ 

(•Bad      ■uj_iou      -utuj  — Qg)      puDwap 

H-2 


r\J 

C\J 

a 


o 
+j 

CD 


a 

CO 

if 
a 
£ 

Q- 


a 

(\i 

<— i 

DO 

QJ 

1 

C 

a 

n 

CD 

C 

3 

ro 

O 

a 

X 

— ( 

CO 

1-1 

O 

c 

a 

U 

o 

csj 

c 

CJ 

u 

o 

a 

a 

u 

(0 

a 

u_ 

. 

g 

a 

T3 

0) 

I 

Q] 

a 

u 

N 

n 

o 

03 

— | 

3 

o 

*h 

O 

■H 

^\ 

ro 

I 

n. 

10 

£ 

t- 

CN 

(0 

L 

O 

•H 

a 

£ 

z 

0 

a 

^_/ 

„ 

n 

ro 

, 

^D 

CJ 

D       • 

CO 

QJ 

C 

ro 

h 

-*J   U. 
CD 

E 

£ 

Q 

u  a 

■r-l 

I*. 

CD   O 

■P 

~ 

E 

a 

o 

O 

V  U- 

Dl 

■-H 

l—     O 

a 

ro 

u 

D 
D 


a 
act 

6 


u   <u   en  cd 

Cll    C    D 


<     f-i    >     CO 


4-> 

x  a>  x. 

3 

n; 

C 

rg 

■ 

QJ 

■H 

>H 

1 

Q 

£ 

U 

1 

a 

N 

CD 

>* 

•H 

-i-i 

u 

— I 

c 

X 

01 

CD 

4J 

■H 

> 

U 

•H 

tn 

D 

4J 

3: 

(Bad      'ui-iou      -utui-  09)     puDwsp 
H-3 


CM 

a 


o 
■p 
a 

X) 


□ 
oo 

ii  ' 
o 

a. 


1            1 

i 
if 

/  i 

I 

-a 
a 

- 

V 

a 

>— i 

- 

jf 

■— i 

Q 
L 

// 

0 

L 

C 
0 

1  \ 

c 

a 

0 

c 

/      1 

u 

i 
i 

=> 

- 

\\ 

- 

i       i 

i 

Ii 

1 

a 
a 


a 
a 

03 


a 

a 

ID 


a 

a 


a 

a 
N 


a 
ad 
d 


to  c_> 


0J     Qj 

UJ 

•H  D 
^     O 

^ 

CD   X 

III 

5 

L 

O 

u 

i. 

2T     QJ 

a 

\^ 

•>   CD 

■a  cj 

10 

Ql 

c 

CD     ~ 

fc 

E   a 

•r-1 

qj  i*_ 

^ 

a 

OJ    c 

CJI-r-t 

u 

X     u 

E 

n 

u  \r\ 

a> 

it. 

cu  a 

n 

Q.iH 

"C 

E 

o 

a 

cu  V- 

a 

-r-( 

1—    o 

X 

u 

Ch 

ID 

en  o 

tu 

0- 

C     3 

> 

•H    — t 

< 

u 

>     CD 

3 

••H    > 

u 

a 

u 

4J 

— 

a  j* 

3 

CD 

C 

CM 

.    fc 

•H 

i — 1 

■D   Q_ 

K 

OJ 

1 

CD 

N     CO 

>» 

•H 

•U 

U 

— 1    JT 

X 

V 

TO    -U 

■H 

> 

fc-    -H 

(Bad      -ui_iou      -uruj— 09)     puowsp 

H-4 


a 

OJ 


CO   CJ 

a 

CD              4J 

en    co   c 

a 

O              4-1 

X   ^     CO 

«— i 

or  20 
Contro 
se  Con 

D 

<*-           -H 

a 

•    3 

*o    CO     1 

O     CJ    y 

d 

N     CO     O 
•H     D     CD 
—1     O   -H 

•^ 

CD   X   D_ 

a 

L 

t*    CM     CO 

a 

£ 

2    0) 

a 

s^ 

CO     Q) 

*  CO    b 

•a  c_j  3    . 

CO 

(3 

C           -4->   U_ 

E 

CO     Ch     CO 

E    O    U  O 

■rH 

CD   L_     CD  --t 

+J 

■a   e 

o 

a 

QJ     O      CJ    U_ 

Ql-H    1—     O 

CD     d 

b   ID    Old 

■*' 

te  Ave 
Hour  P 
Drivin 
k  V  a  1  u 

a 

3                co 
C   CNI       •    QJ 

a 

IM 


QD 

d 


C  -Bad      -uj_jou    uriu-gg)     puowap 

H-5 


en  co  i 
u  u  C 
■H  QJ  CD 
Q.  Q.CJ 
>»  E 
h-     QJ     CO 


(H       C  O 

O   -H  U 

•W  c 

m  (-.  o 

n  Q  U 


18 

L 
£ 


o_  co   t-. 

E     C    QJ 

ID     O   CL 


CO     3 
C      I     CN 
HH     QJ  -H 
O 

QJ     QJ     CD 

CT'H 

CD   Q_     t-i 


>  o  o 
<  u_ 

QJ    QJ  U_ 
-u     CO 

3  n  o 
coo    • 

•*4  ZL.    II    T) 

e:      .*  oj 

I     M     CO     N 
>*  CD   -H 

X     CO         j  CD 
-•-I    CD  h-    t- 

cnu  —  -u 


in 

03 


a 


in 


a 


IT) 
ID 


( jBsp)       -duja-q.      "Bad      *uriu-09 


H-6 


CM 

(\J 

o 


a 
+j 
a 

XI 


m 

a 

03 

ll' 
D 
-C 
CL 


p-h        en 

D 

CD        1      -rH 

a   t- 

•rH       CD    -H 

ri 

a.  d.  o 

<-H 

or    a    T 
ing    Te 
.     Cont 

Q 

<*-     >  *D 

a 

•H    O 
CD     f*  — i 
t-  Q    t-. 

CO 

D            CD 
-*J    4->   Q_ 
CD     C 

»*> 

f-i     CO     U 

CO 

ti   -u    3 

L 

Q.   CO    O 

E    c  z: 

a 

r 

CO    o 

a 

^ 

1—    f_J    CM 

CD     CD 

d 

Ql 

"D     10    ID 

E 

CO     3     E- 

•«-! 

C      1      O 

4J 

>->   <d   > 
u  o 

a 

CD     CD 

a 

CO   Q_   L_ 
t-i 

^ 

CD     tj   lA 
=»     O   C\ 

<  W     II 

CD     CD    CO      • 
-4->     CO    (D  *D 

D     3    CO 

a 

CO         |  N 

a 

■H  r  )-  -i 

L0 
CD 


o 

CD 


in 


a 


CM 

a 
ad 


in 

CO 


£  -—    -4 


-U     QJ    U   4J 
X     01    D     C 


(jBsp)       "duia^.      -Bad      •urw_og 

H-7 


rvi 

C\J 

a 

11' 
a 
-p 
01 

XI 


m 

a 

03 


a 

CL 


1 

1 

1 

TJ 

a 

- 

V 

t-i       — 

a 

f— t 

i—i 

0 

p-i 

L 

1 

0 

4J 

L 

c 

/ 

+> 

0 

/ 

C 

u 

0 

c 

I 
1 
1 

(J 
1 
1 

D 

- 

I 

1 
1 

- 

- 

1 

i 
1 
\ 
\ 

- 

1 

1 

1 

ID 
03 


a 

03 


in 


a 


a 
ad 


in 


co   ro  c 
o   c-  o 

•H    (D  CJ 

o.  a. 
i—  aj  — i 

CD         M 


n 

■H     O 

a 

©     U  CJ 

03 

J  JT3 

CO   c   o 

m  -i->  u 

Uj 

an  u 

i 

e  c  a. 

a 

r 

CD    o 
t—  CJ    C-i 

a 

\s 

cu   a)  o 

"a   to  x 

uj 

iu 

-H   -.-t 

E 

(1)    3   N 

C     I    i-t 

■rt 

.-.     GJ 

+J 

O    CO 
0)     CU 

1 1 

Cn-iH     h 

a 

CO  O-     Q> 

L_ 

*J    wo 
3    DO 

C      O    ^H 

-*  X     H      • 

s:      .*  -o 

i  n  ID  a 

>s  0J    N 

*j  0)  an 

x    CO        |—l 
•H     CO  (—    CO 

in  cj  ■»_-.  t^ 


CjBap)       'duisq.      'Bad      "utw— gg 
H-3 


CM 

c\j 

a 


o 
■p 
ai 

-0 


m 
a 

CD 


D 
Q. 


1                     1 

1 

■o 

0 

- 

•o 

«— 1            — 

0 

i-H 

w—i 

0 

n 

L 

0 

+> 

s 

L 

c 

** 

+J 

a 

y 

E 

u 

1 
1 
\ 

" 

c 

\ 
\ 

\ 

/ 

\ 
\ 
\ 

\ 

\ 

1                                1 

i 

in 
m 


a 

CD 


a 


a 
a 

c\i 


a 
ad 


in 

CD 


■^   cu  c_j 
a.  a. 

>*   =     CO 


u 

a  in   o 

1 

E    c  n_ 

a 

£ 

u 

^ 

<u   o   o 

CL) 

Ul 

■H    -H 

E 

CO     2   CVJ 

C       1      ^H 

■H 

•-.     (U 

+J 

a    en 

1  1 

cn.-H    t. 

a 

o 

ru 

4J 

CO 

m 

3 

D 

a 

r 

O 

— H 

• 

■H 

— 

II 

■a 

^ 

JX 

c 

1 

rg 

co 

tM 

^ 

C) 

..H 

4-J 

n 

Q 

~^ 

X 

en 

CD 

•H 

CD 

Li 

t/i 

U 

•*-* 

j-> 

f-jBsp)       -duisT.      -Bad      -urw— gg 

H-9 


CM 

r\J 
a 

n' 

D 

4J 

Q) 
XI 


a 

03 

ll' 

0 

SL 

a. 


1 

1 

1 

1 

"0 

\ 

g 

_ 

"b 

>-< 

— 

s 

g 

r~i 

, '  \ 

~ 

a 

L 

''  ) 

0 

L 

c 

*^ 

/ 

•P 

0 

-^ 

/ 

c 

0 

1 
1 
\ 

( 

0 

u 

1 
1 

c 
3 

- 

\ 
\ 
\ 

\ 

- 

\ 

\ 

\ 

\ 
\ 

\ 
\ 

1 

1 

1 

CO      1 

CJ     t-H 

1  1 

•H     CU     O 

o.  ex  u 

>.  s  -*J 

( ) 

1—    QJ    C 

i—  a 

en 

t-    c      * 

O'H-D 

t*-     >     O 

a 

(D    fc-    t< 

a 

t-i  Q    <U 

ao 


in 

03 


a 

03 


ID 


a 


a 
ad 


ID 
LO 


Q.  in  ■ 

e  c 


4-1     «     (D    -H 

D    3    an 


a 
a 

*H   X    t—     t* 

S            ^   4-> 
1     CN             C 

>%        o   aj 

Mi    Hi    U  CJ 

H-10 


IM 
CM 

o 

* 

ii 

D 
4J 

Ql 
XI 


m 
a 

GO 

II ' 

0 
JZ 
Q. 


H 

L 
£ 


i 

c_ 

05  E 
o  OJ 
CO   I —  **- 

D         o 
o  en 


u-  •   co 

■a  »  a. 

<D  en 

N  U     CO 

•h  o  .c 

to  -H 


en  u 
cd  o 
(-.  a. 


c  —I 


0)    h^iL 

>  cu  co 

Li.  O     GJ  Os 


(  -Bad      *ui_iou      'UTui—g)     puowep 

H-ll 


CM 

o 

II ' 
a 
+j 
ai 

XI 


m 
a 


D 
£. 
Q. 


0 

L 
■M 
C 
0 
0 

\ 
i 

u 

0 

(1 

3 
0 

z 
a 


a 


CO 

■u 

(U 

01 

CO 

0) 

N-1 

r 

D 

0 

n 

.— < 

t  J 

3= 

0 

u 

-a 

QJ 

■H 

co 

01 

D_ 

CD 

N 

3 
0 

CO 

»H 

I 

■  •-i 

r\ 

n 

III 

E 

CM 

OH 

L 

(n 

u 

u 

( 

Z 

CO 

n 

v_v 

to 

CU 

u 

• 

D 

CD      - 

in 

n 

c 

b 

ClL_ 

E 

CO 

n 

E 

zE 

u_ 

CD  ir\ 

■i-t 

CD 

1—    ON 

+J 

Q 

■a 
o 

O*  it- 

a 

CD 

u 

er  o 

1 1 

CD 

CO 

>  CO 

u 

a. 

•H    D 

* 

(1) 

ti  ~-l 

» 

h 

O     CO 

«t 

3 

o 

> 

a) 

ztdjj: 

jj 

CD     CD 

d 

CM 

N     O 

( i 

c 

i— 1 

•H  Q_ 

a 

■H 

£ 

ra 

CO     CO 

• 

i 

(J 

r>  i 

a 

h 

-u  jC 

> 

(D 

C   j-> 

•-t  >  aj  -h 


(  -Bad      -ui_iou     -urw—g)     puDuisp 
H-12 


CM 

CM 

o 


o 
-p 
ai 

-Q 


cn 
a 

03 


0 
Cl 


Q 

c\i 


a 
ad 

a 


n. 
en  = 

(DO)'-. 


a 

0)   D_ 

u 

"D     CD 
CD     10     CD 

CD 

•H     O  -C 

0) 

cn        -h 
E  cn  ^ 
u 

L 

O     ID   JJ 

O 

a 

£ 

d,     N 
Cas 

s  tan 

ID 

01 

cue 

CD     O     O 

t- 

E  U_  o 

■r-l 

0) 

O     CO 

a 

CD   -H   -h 

a 

CD     CD      1 

U   Q_     CU 

3  cn 

■H 

C    — 1 

■H 

o 

S£     CO 

u, 

t 

3     • 

0   u 

4J  L_ 

>  a 

(0 

•H     > 

t<  a 

u_  a 

CD  ON 

(  'Bad      'ui_iou      'utuj— g)      puDiuap 

11-13 


CM 
CM 

a 


D 
+J 

ai 

-Q 


m 
a 

CD 

ii" 
a 

r 

CL 


a 

r\i 


a 

cu    en    tn 

U)   -H     C 

D            O 

a 

O   H   U 

X    o 

a 

"" 

■     O 

u 

T3 

CD    -H 

03 

n  a_ 

CD 

N 

3 
O     CO 

r-4 

X   -H 

rs 

co 

in 

5 

r-j    cd 

L 

0 

CD    3 

U 

£ 

2 

01    4_) 

n 

^ 

CO     CO 

t 

■13 

CD       • 

in 

ni 

C 

U    Q.U. 

E 

CD 

O     E 

:= 

u_    CD  O 

«H 

CJ 

1—    CN 

■P 

n 

O     CPU- 

a 

•H     C     O 

u 

m 

cd  =>  aj 

u 

0_  -H    D 

Q) 

t-l    -4 

M 

> 

u  o  a 

< 

o    • 

Q) 

x  -a  ^ 

j_> 

CD     CO 

3 

Cs*    N     CD 

I  1 

c 

— t  -h  a. 

a 

■H 

CD     CO     CO 

(-1 

(\j 

CD 

f-i   4J  -C 

> 

0)     C  J-) 

■pH 

>    CD  -H 

U. 

a  c_j  ^ 

oa 
d 


(•Bad      -ui-iou      -urui  —  g)      puDiusp 

11-14 


a 


CO    E 

a 

ID  1—    o 

D 

a 

o    en  cd 

X     C     D 

a 

CO   CL 
"O     Ci) 

CD     CO     CD 

CD 

N     -D 
■H     O   ^ 

r\ 

in 

EN^ 

( 

f-i 

a 

£. 

O     0)    j-> 

7   ra  c 

a 

\s 

CO     CD 

*CJ   JJ 

aJ 

III 

c   t*   c 

E 

CD     O     O 

E    <*-    C_J 

■ri 

CD 

+J 

QUO 

o   to 

n 

CD    -H    -r-i 

a 

CD  h    | 

ra    cd    i 

ao 

a 


o 

CL 

CD  X 

4-1 

CO 

3   OJ 

■H 

C   •— 1 

•H 

O 

:•:   ca 

t-.       • 

i 

D   L_ 

CD     U 

4-> 

>    o 

CD   O 

•H     > 

[-.   !-> 

L_   O 

CD  ^H 

(  "Bad      *uj_jou      -urw—g)     puouisp 

H-15 


a 
c\i 


a 

CD     CO     (0 
(0   -H     C 

3         o 

Q 

OHU 

m  o 

»—i 

or  20 
Contr 

e-wise 

i ) 

<+-      .    u 

a 

"O     CD  -H 

cd   «  a. 

CO 

N     D 
•H     O     CO 

u 

E   CM     1) 

i 

u        u 

a 

£ 

"ZL     CO   oJ 

u 

V-* 

CD     CD 

id 

(11 

C     t4    Q. 

E 

ID    O    £  O 

E^   mo 

CD         I—  ^ 

-P 

Q  T3 

1 1 

CD   -H     C     O 

a 

cn  tj  -h 

CO     CD     >     CD 

, 

t-t    Cl_    -ri     D 

t 

CD            C   .-( 

>    U   Q     CD 

<     D           ^= 

O       • 

CD  X  "O   .* 

J->            CD     CD 

a 

D   CN     N     CD 

C  i— 1  -H   0_ 

1 1 

•H         .rH 

ii:  co  co  co 

• 

1             C-i 

(VI 

C3    U  -t-i  sz 

>    CD     C   -1-) 

•H     >-    tD  -H 


a 
ad 
d 


C  "Bad      -uj_iou      -utuj— g)     puowsp 

H-16 


a 
r\i 


a 
a 


CO    s 
CO  I—    o 


CD     CO     CD 

QO 

N     D 

■H    O   JZ 

■»> 

CO           -H 

u 

E  cnj  2B 

a 

L 
C 

O     CU   4-) 

n  n   c 

a 

^ 

CD     CO 

"O            CO 

i() 

lil 

c   s-    c 

E 

CD     O     O 

EE   <•-    C_J 

-<-t 

0) 

+> 

O  "O     CD 
O     CO 

a 
a 

rage 
Peri 
e-wi 

* 

ute  Ave 
2  Hour 
is  P i e c 

u 

c  ^ 

a 

•H            ID 

£:  co    t-.    • 

1               3   Ix. 

i\l 

Five 
Over 
erat 
105 

a 
ad 

d 


a 


C  'Bad      "ui-jou      -urui_ 


2)        puDLUBp 


H-17 


0 

i 

— i 1 — 

a 

(\J 

L 
£ 

ai 

E 

■iH 

-M 

L 
+1 

C 

a 

-  0 

\ 

it 
a 

it 

3 

-  0 

£. 

a 
w 

• 

a 
a 

a 
a 

CO 

a 

a 

id 

a 

a 

■* 

a 
a 

t\i 

a 

CD 
CO           -i_> 
CD    CO     CO 
(I'd    C 
3            O 
O    ~H    CJ 

X   o 

U     CD 
O-U     (0 

C\J 
C\J 

a 

if 
a 
■p 
ai 

CN     C   -H 
O    3 

O            CD 

U-      .    o 

CO     CD 

TD     CD   -H 

<D    CO  a. 

N    3 
•H    O     CO 

CO 

E  CM    CD 

XI 

c 

O    (D    3 

2      CO    4-> 

m 

1 

- 

"D            CD   U. 

a 
m 

1 

C     U     Q. 
(0    O     5   lA 

ii ' 

1 

CD          1—  ^ 

D 
Q. 

1 

^^_^_ 

1 

- 

CO    CD     >     0 
(-.  CL  -H    3 

QJ               tl    -H 

>    fc(Q    CD 
<    3           > 

D 

r~ 

i 

cd  x  x>  x. 

-U             <U     (D 

e= — 

3  CN    N     CD 

C  ^h  -h  n. 

^    CD    CD    en 
1             C 

i 

i 

>    OJ    C  4-1 

L.OU2 

i     , — 

i        — i 

a 
a 

a 

a 

CD 

a 

a 

ID 

o         a 
a         a 

a 
a 

a 

cn 

a 


C  -6/ 


■w_jou      "uruj— 5)     puDuisp 


H-1E 


PJ 
t\J 

a 

ii' 
a 
-p 

OJ 

XI 


m 
a 

CD 


0 

r 

Q_ 


a 

(\j 


CO    E 

a 

OD  1 —  **- 

3            O 

a 

o  en 
x  c  o 

•—i 

or  20 

Drivi 
ak  Vlu 

a 
a 

ed  f 
ses . 
a  Pe 

03 

N    3 

■H    O  JZ 
~*  X  -u 

<-\ 

CD           -H 

1/) 

EN3 

L 

C-i 

u 

J- 

2    B)    C 

a 

\s 

a  cd 

X)          en 

iii 

III 

cue 

E 

CO    o    o 

E    <*-     C_J 

•H 

CJ 

-P 

O     CO 

a 

CD  -H   -H 

en  u  s 

u 

CD    <D      1 
U  0_     QJ 

a 
a 

Tive-Minute  Ave 
Over  a  12  Hour 
erature  is  Piec 
110  K. 

QQ 
D 


(•Bad      -uj_iou      -UTw_g)      puDmsp 
11-19 


C\J 

CM 

o 

ii ' 
a 
+j 
ai 

JQ 


ro 
a 

03 


a 

Q_ 


Hi 

L 
£ 


(D  I—     rH 


hQ.H  3 


(I) 

U  >-\ 

> 

u 

a  m 

< 

3 

o 

:=» 

0) 

~ 

T3   _¥ 

4J 

O    CD 

J 

Csl 

N     QJ 

f- 

i — i 

•H  G. 

■H 

i—i 

r 

CD 

cd   co 
u 

QJ 

U 

4J  x; 

> 

o 

C  JJ 

■H     >     QJ   -H 


(  'Bad      -uijou      *uruj_ 


g)      puoujap 


M-20 


a 
t\i 


a 

■ 

U      1 

-h  a. 
a  e 

u 

>%   OJ 

r-l 

or    a    T 
ving    T 
iod . 

a 

U-   -H     U 

U     CD 

u 

CD  Q   Q_ 
U 

ai 

4->     C     U 

CO    CO    o 

^ 

F-4  J->   X 

in 

CD     CO 

L 

Q.   C   CN 

E    O  >H 

u 

r 

CD   C_) 

a 

^ 

h-           CO 

CD 
CD     CO     (-1 

CO 

ai 

E 

"D   -H     CD 
■H     S     > 

co    i   a 

■M 

C    CD 

+J 

CD   U_ 

a 

CD   -H 

cno_  o 

u 

CO          0\ 

(H  h    II 

CD    O  J* 

■* 

>  U-     CO 

<£  CD 
CD    Q. 

CD  CO  | 
4J    D   h- 

D     O  -- ■ 

-) 

C   X 

a 

v  e  -  H  i 
se    2 
ature 

a 
ad 


C-|Bsp)     a_ini}.D_jadwa^    aptsu] 


-21 


t\J 


o 

U 

1 

£ 

■H 

Q.4J 

d 

Q. 

E 

c 

>s 

QJ 

O 

r-l 

1 — 

CO 

>— 

cn 

c 

LJ 

"0 

u 

•H 

0 

a 

» 

•H 

a 

<*- 

■H 

CD 

a 

CD  q 

D- 

(-. 

03 

3 

4J 

(-. 

4-3 

c 

3 

CD 

a 

o 

^~s 

t-» 

4-1 

x 

</> 

a> 

to 

L 

a 

c 

tN 

E 

o 

a 

£ 

CD 

U 

a 

^ 

*~ 

QJ 

0 

■ 

cu 

cn 

U 

ID 

ai 

"D 

■H 

OJ 

E 

■H 

2 

> 

CO 

1 

a 

■H 

C 

a 

-P 

1-1 

o 
tt) 

Ll 

a 

CTG. 

a 

a 

CO 

ON 

u 

h 

it 

■ 

B 

o 

j*    • 

<* 

< 

<D 

CO  "D 
CO    CD 

a.  n 

CO 

CO 

I'H 

J-l 

3 

h-    ■— 1 

D 

o 

^    CO 

a 

C 

— 

C-i 

a 

(N 

CO    4-1 

C-i  c 
D     CD 

<\i 

CD 

CD 

4-J    U 

> 

CO 

m 

in 

CD 


o 

03 


in 


□ 


a 
ad 


in 
to 


■H    CD     U     CO 


(-jBsp)     3_inT.D_isdujs_|_    sptsuj 

H-22 


00 
00 

o 


o 
+J 

CD 


m 
a 

CD 

if 

D 

r. 
a. 


a 
c\i 


a 

u 

1 

Q- 

a. 

E 

a 

>s 

<D 

«— < 

h- 

*~ 

CD 

en   • 

c  n 

fa 

•H    O 

a 

>   -.-1 

a 

<t- 

•H     fa 

fa  ai 

a 

fa 

Q  a. 

3 

4-1      fa 

CD 

4J 

C    D 

CD 

CD     O 

rs 

fa 

j->  nz 

U) 

CD 

to 

L 

Q. 

C   CN 

e= 

O    — 1 

a 

r 

(U 

LJ 

a 

w 

*— 

CO 
CD 

, 

0 

CO     fa 

CD 

Ql 

E 

"D 
•H 

CO 

■H     <D 
3    > 

1    O 

rH 

C 

CD 

-P 

1-1 

O  <— . 

S3  u. 

a 

oiq_  ia 

a 

CD 

CTN 

fa 

C-i       l| 

• 

OJ 

O  -* 

"* 

> 

l*-      CO 

a 

c  z: 

a 

•H            CD 

S  CN     Ui 

1             D 

f\l 

<D    CO  4-J 

>     CO     CD 

LD 
00 


a 

CD 


in 


a 


in 

CD 


CjBsp)     s_inq.D_i3c)uj3j_    aptsu[ 
H-23 


(\J 


■H      Q.  JJ 

d 

a  e  c 

XI)    o 

*-i 

or    a    T 
v/ing    T 
iod.     C 

a 

<*-    -H     C 

a 

t-     (D 
OQO. 

03 

D    4->      (-1 

CD     CD     O 

*•> 

tl4Jl 

it 

cu  to 

L 

0.  c  r-j 

a 

E    O  ^ 

CD   O 

a 

\s 

1—            CD 
CD 

CJ     CO     u 

. 

to 

a 

~U   *H     CD 

E 

•H    3     > 

0)     1    o 

■i-t 

C     CD 

+-> 

CD   U_ 

a 

a 

(D  -H 

Q>C1_   lA 

ID          (T» 

t-.     Eh     II 

■* 

e    Ave 
se    f o 

ized . 

a 
ad 


-u    3   >—  — < 


in 


a 

03 


in 


a 


to 


CjBap)     a_inq.D_iadujB_L    aptsuj 


-24 


t\l 

o 


D 

aj 

XI 


m 
a 

oo 


D 

a 


a 
c\j 


a 
d 


m 

03 


a 

Qj 


a 


a 


oa 

Lf) 
CO 


a  e 


a 

C     (-i 

a 

(UQ  aj 

i-  Q_ 
D    4-> 

UJ 

CO     CO     D 

r>, 

(-.   4->     O 

u) 

0    to  X 

Q.   C 

L 

EON 

a 

( 

QJ   (J   ^H 

a 

»*• 

0     CD 

GJ     (0 

ID 

ai 

•H     3     CD 

b 

CO      1      > 

■H 

C    CD  o 

+J 

CD   -H   Lu 

u 

cnn_ 

a 

CD  O 
U    U  O 

0)     O   <-H 

* 

>  (4-  II 
<             -* 

a)  co 

cd   en   cu 

4-1     D     Q. 

Z>    o 

a 
a 

Five-Min 
Case  2  H 
ature  ( T 

(jBap)      3_jn-q.D_iBduj3j_     eprsu[ 
H-25 


CjBsp)     B_jn^.D_jaduj3j_    sprsuj 

H-26 


•H    Q.   C 

a  e   o 


U) 

CD     CO 

CM 

L 

Q.   C 

— 1 

a 

E     C 

i ) 

\S 

t— 

CD 

■- 

' 

o   en 

<L> 

to     ai  -o 


cno_ 

o 

CD 

— i 

t-     (-< 

II 

<u  o 

-¥     ■ 

->  l*_ 

CO   "D 

< 

CD     CD 

a> 

D.  N 

CD     CO 

|-H 

■u    D 

H-   i— 1 

3    o 

>«—   cc 

C  X 

F-l 

H 

CD   4J 

£:  cm 

f-.     C 

i 

3     CD 

O     rj 

J-)   C_) 

>    to 

CD 

•h  ca   u   to 


L 


■M 

Q 

a 

E 

> 

a) 

*- 

t- 

(9 

cn"D 

c 

o 

b 

■H 

■H 

o 

> 

U 

it- 

•H 

o 

U 

C- 

ID 

Q 

k 

u 

3 

4-> 

S 

4J 

C 

o 

CD 

CO 

~ 

U 

a-) 

01 

(0 

rvi 

a 

c 

~H 

£ 

o 

CJ 

u 

en 

1 — 

OJ 

u 

OJ 

01 

0) 

T3 

■H 

> 

•H 

2 

a 

CO 

| 

C 

O 

<^« 

l-H 

u 
a 

Lo- 

0) 

■.H 

rn 

qicl 

CD 

(D 

i— i 

U 

h 

II 

GJ 

a 

J* 

S 

i*. 

CU 

< 

GJ 

9] 

D. 

GJ 

n 

! 

j_> 

3 

i— 

3 

o 

•— 

C 

zz 

■H 

a 

i 

N 

D 

o 

o 

4J 

> 

CO 

EC 

•H 

(B 

u 

U, 

^j 

CJ 

(j6ap)     a_inT.D_iadujsj_    aprsuj 
H-27 


0 

r\i 


a 

en         t-i 

U          1        4J 

a 

a  e   o 

^  0)  u 

t—t 

or    a    T 
ving    T 
riod , 

a 

**-   ■**     CD 

a 

ID   Q 

t-.            - 

03 

4J     C     O 

It 

CO    CD  3? 

CD     CD   OJ 

L 

CLCH 

a 

£ 

B    o 

CD   O     CD 

a 

\^ 

CD     U 
CD     CO     CD 

ID 

0) 

T3     -ri       > 

E 

■^    3  O 
CO      1 

■rl 

C    (U^ 

-u 

H     (JL 

a 

cd  ••-<  m 

a 

CT>Q_  a 
CD          — ( 

t-    tj    it 

* 

CD     O   .¥       • 

=»  U_    CD  T3 

<C            CD     CD 

CD    C   N 

0)  CD  |.^ 
-U    3   1—  .-< 

D     O  — -    (D 

a 

c  X         c 

a 

■H            CD   oj 

D 

aa 


(jBap)     s_inq.D-jedujs_L    aptsuj 

H-23 


a 


a 

Q-  E 

>— i 

or  a  T 
ving  T 
riod. 

1 1 

1*-   -H     CD 

a 

t-i   Q_ 

03 

3    -4->     D 

J->    c    o 

CD     CD   X 

t-l    4-» 

UJ 

CD    co  eg 

i 

a  c  ^ 

a 

£ 

E    O 
CD   CJ     CD 

u 

^ 

CD  h 
CD     CO     0) 

aJ 

11 

■Q   -H     > 

E 

•H   ^  a 

CO      1 

■ri 

c   u^ 

-P 

CD 

n 

CD   -H   O 

a 

cna.  h 

CD          .— 1 

s-<     (-.     II 

a 
a 

ve-Minute  Ave 
se  2  House  fo 
ature  (T  peak 

ad 


(-(Bap)      3-Jnq.D_iaduiaj_     sptsu[ 
H-29 


C\J 
<\J 

a 


a 
-p 

Q) 


m 
a 

03 

if 

a 

_C 
CL 


N 


a 

a    i   aj 

•H    Q.   C 

■ 

CL  e    O 

a 

>,  a»  o 

r-1 

i —  i — 

co   ct>tj 

c   o 

t4    -H    -H 

o   >   t- 

a 

d-  -H    CD 

(-.  a. 

a 

(D  a 

CO 


0) 

id   tn  m 

a.  c  »h 

L 

!=      O 

a 

c 

0)   U    CD 

a 

^/ 

a)   u 
cd   co   cu 

UD 

a 

•H     3   0 

1- 

CO      1 

•l-t 

C     fl)^ 

+J 

CU 

ID   HO 

U 

■cna_  ^ 

a 

CO            <-H 

a 
a 


a 
aa 


>  <*-  CO   "D 

<  aj   ai 

CD  D.  N 

Q>     CO  !-H 

4J    3  t—  H 


(D    fl)   4J   U 


•H     CO     t-.     CO 


in 
co 


a 
co 


in 


a 


ID 


(-(Bap)      s_in-^D_iadaia  j_     aprsuj 
H-30 


APPENDIX  I 


PLOTS  OF  5  AND  60  MINUTE  AVERAGE  DEMAND 

(NORMALIZED  FOR  20  HOUSES)  AND  5  AND  60 

MINUTE  AVERAGE  TEMPERATURE  (FOR  A  TYPICAL 

HOUSE)  OVER  A  10  HOUR  PERIOD  FOR  CASE  3. 
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APPENDIX  J 


PLOTS  OF  5  MINUTE  AVERAGE  DEMAND 
(NORMALIZED  FOR  20  HOUSES)  AND  5 
MINUTE  AVERAGE  TEMPERATURE  (FOR  A  TYPICAL 
HOUSE)  OVER  A  10  HOUR  PERIOD  FOR  CASE  I 
CONTROL  IS  LOAD  LEVELER  TYPE 
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APPENDIX  K 


PLOTS  OF  5  AND  60  MINUTE  AVERAGE  DEMAND 

(NORMALIZED  FOR  20  HOUSES)  AND  5  AND  60 

MINUTE  AVERAGE  TEMPERATURE  (FOR  A  TYPICAL 

HOUSE)  OVER  A  10  HOUR  PERIOD  FOR  CASE  2. 

CONTROL  IS  LOAD  LEVELER  TYPE 
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APPENDIX  L 


PLOTS  OF  5  AND  60  HINUTE  AVERAGE  DEMAND 

(NORMALIZED  FOR  20  HOUSES)  AND  S  AND  GO 

MINUTE  AVERAGE  TEMPERATURE  (FOR  A  TYPICAL 

HOUSE)  OVER  A  10  HOUR  PERIOD  FOR  CASE  3. 
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APPENDIX  M 


LISTINGS  OF  COMPUTER  PROGRAMS 
USED  IN  SIMULATIONS 


APPENDIX  M-I 


LISTINGS  OF  COMPUTER  PROGRAMS 
THAT  REQUIRE  CONSTANT  DRIVING  TEMPERATURE 
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o 

<)<■  »■>  <■»  o->  ■><.<.»<><.<.<. «.  i«.<.j>o<io->=j  15  «■<><•  <*o  <.»«><><><■  <.<.*<■  -X'O  >>-->*  *<■<»■>*<><<  <.<,<. 

«  PROGRAM  NEWOIST  SERVES  THE  PURPOSE  OF  DETERMINING  THE 

*  AVERAGE  HOURLY  DEMANO  REDUCTIONS  FOR  A  30  HOUR  PERIOO. 

*  THE  NUMBER  OF  HOUSES  USED  VARIES.  ONCE  THE  30  HOURLY 

*  DEMANO  REDUCTIONS  ARE  CALCULATED.  AN  AVERAGE  AND  STAN- 
o  OARO  DEVIATION  ARE  DETERMINED. 

o 

INTEGER  UNIT2,J,K,N,NR,0,HNUM 

REAL  ALPHA,BETA,T,TDAY(600J,TON,TOFF,PWR(500>, 
o         CTDAYl 6001, PAVG (601, CPWRC 500), R( 1000 ),TI( 1000  1, 

*  USYSI500),CSYS(500),EMAX,TEMPI600I,CTEMPI600), 

*  STATSC5)»Z,CAP(500),UENERI500) ,CENER(500) ,TEMPAV 

*  C500),CTEMAVI5001,ESAVE(500),EAVG«50,STATMA(10,2I 
DOUBLE  PRECISION  DSEED 

CHARACTER  STATE*3, START!  1000  )<»3,TRANSC600  1*3  , 

*  STATUS(600>*3 
« 

4 

*  VARIABLE  NAMES: 

*  ALPHA  -  COOLING  COEFF.FOR  THE  SYSTEM  IDEGF/MIN). 

*  BETA  -  HEATING  COEFF.  FOR  THE  SYSTEH  ll/HIN). 

*  T  -  VARIABLE  USEO  TO  KEEP  TRACK  OF  TEMPERATURE. 

*  TON  -  TEMPERATURE  AT  WHICH  THE  SYSTEM  TURNS  ON. 

»      TOFF  -  TEMPERATURE  AT  WHICH  THE  SYSTEM  TURNS  OFF. 
4  N  -  VARIABLE  SPECIFYING  THE  LENGTH  OF  THE  PERIOD  OF 

*  INTEREST  FOR  POWER  ANO  ENERGY  CONSUMPTION. 

*  HNUM  -  VARIABLE  SPECIFYING  THE  NUMBER  OF  HOUSES  USED 

*  TO  PRODUCE  A  SUMMED  LOAD  CURVE. 

*  TDAYI600),  TRANSC600),  TEMPI600)  -  VECTORS  FOR  STOR- 

*  ING  TRANSITION  TIKES,  STATES  (ON/OFF),  ANO 

*  TEMPERATURES  FOR  THE  UNCONTROLLED  CASE. 

*  CT0AYI600),  STATUSI600),  CTEMPC600)  -  VECTORS  STORING 

*  TRANSITION  TIMES,  STATES  (ON/OFF),  AND  TEKPERA- 

*  TURES  FOR  THE  CONTROLLED  CASE. 

*  PWRI500I  -  VECTOR  FOR  STORING  THE  FRACTION  OF  TIME 

*  THE  SYSTEM  IS  ON  IN  EACH  N-MINUTE  PERIOO  FOR  THE 

*  UNCONTROLLED  CASE. 

*  CPWRI500)  -  VECTOR  FCR  STORING  THE  FRACTION  OF  TIME 

*  THE  SYSTEM  IS  ON  IN  EACH  N-MINUTE  PERIOO  FOR  THE 

*  CONTROLLED  CASE. 

*  CAP! 5001  -  VECTOR  TO  STORE  THE  CAPACITY  FACTOR  FOR 

*  EACH  HOUSE. 

*  UENERC5001  -  VECTOR  TO  STORE  THE  ENERGY  CONSUMPTION 

*  FOR  N-MINUTE  PERIOOS  FOR  THE  UNCONTROLLED  CASE. 
«      CENERI500)  -  VECTOR  TO  STORE  THE  ENERGY  CONSUMPTION 
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o  FOR  N-MINUTE  PERIODS  FOR  THE  CONTROLLED  CASE. 

*  EMAX  -  VARIABLE  USED  TO  DETERMINE  THE  MAXIMUM  N- 
»  MINUTE  ENERGY  CONSUMPTION  FOR  M  HOUSES  WITH  A 
«  GIVEN  CAPACITY  FACTOR. 

o  USYSI500I  -  VECTOR  STORING  ENERGY  CONSUMPTION  FOR  N- 

*  MINUTE  PERIODS  FOR  M  HOUSES  IN  THE  UNCONTROLLED 
«  CASE  INORMALIZED  FROM  0  TO  11. 

*  CSYSJ5O0I  -  VECTOR  STORING  ENERGY  CONSUMPTION  FOR  N- 

*  MINUTE  PERIODS  FOR  H  HOUSES  IN  THE  CONTROLLED  CASE 
»  (NORMALIZED  FROM  0  TO  11 

*  DSEED  -  SEED  NUMBER  USED  TO  GENERATE  RANDOM  NUMBERS. 
»  NR  -  THE  NUMBER  OF  RANOOM  NUMBERS  TO  BE  GENERATED. 

*  RdOOOl  -  VECTOR  OF  RANOOM  NUMBERS. 

*  Til  1000 J t  STARTilOOOl  -  VECTORS  THAT  STORE  THE  INIT- 
«  IAL  TEMP.  AND  STATE  FOR  EACH  OF  THE  M  HOUSES. 

o  STATSIS1  -  VECTOR  CONTAINING  THE  STATISTICS  FOR  THE 

*  LOAD  CURVE. 

*  UNIT2  -  VARIABLE  USED  TO  ESTABLISH  AN  OUTPUT  FILE. 

»  J  -  VARIABLE  CONTAINING  THE  NUMBER  OF  TRANSITIONS  IN 

*  TDAY. 

*  K  -  VARIABLE  CONTAINING  THE  NUMBER  OF  TRANSITIONS  IN 

*  CTOAY. 

*  0  -  VARIABLE  CONTAINING  THE  NUMBER  OF  N-MINUTE  PER- 

*  IODS  IN  30  HOURS. 

*  ESAVEI500J  -  VECTOR  CONTAINING  THE  ENERGY  SAVINGS  FOR 

*  EACH  N-MINUTE  PERIOD. 

*  EAVGC50J  -  VECTOR  OF  AVERAGE  ENERGY  SAVINGS  OVER 

*  LONGER  PERIODS. 

*  STATMAtlO»2l  -  MATRIX  OF  AVERAGES  AND  STANDARD  DEV- 

*  IATIONS  FOR  THE  DATA  IN  EAVG. 

• 

UNIT2=10 

OPEN  IUNIT=UNIT2fFILE='I0UN2#l 
C 

C  DSEEO  IS  THE  SEED  NUMBER  USED  FOR  GENERATING  RANDOM 

C  NUMBERS  IN  THE  RANGE  lOtll.  ITS  VALUE  IS  OIFFERENT 

C  AFTER  EACH  SET  OF  RANDOM  NUMBERS  ARE  GENERATED. 
C 

0SEE0=2373*65392.D0 
C 

C  THE  FOLLOWING  ASSIGNMENT  ARE  CONSTANTS  THROUGHOUT  THE 

C  PROGRAM. 
C 


ALPHA=1. 03317 

BETA=.0223U 

N=5 

0=1800/N 

T0N=74 
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T0FF=70 
C 

C    00  LOOP  98  VARIES  THE  NUMBER  OF  HOUSES  THAT  ARE  SUMMED 
C    INTO  A  LOAO  CURVE. 
C 

DO  98  0=1,21,10 

HNUM=Q 

NR=HNUM 
C 

C    00  LOOP  99  PERFORMS  THE  NUMBER  OF  REPETITIONS  OF  THE 
C    SUMMED  LOAD  THAT  ARE  DESIRED.  EACH  REPITITION  HAS  01  F- 
C    FERENT  INITIAL  CONDITIONS  AS  A  RESULT  OF  STARTING  WITH 
C    DIFFERENT  SEED  NUMBERS. 
C 

DO  99  L=l,lO 
C 

C    00  LOOP  100  INITIALIZES  THE  CONTROLLED  AND  UNCONTROLLED 
C    ENERGY  TO  0. 
C 

DO  100  J=l,500 
USYS(JI=0 
CSYS(J»=0 
100    CONTINUE 

EMAX=0 
C 

C    RANDOM  IS  CALLEO  TO  GENERATE  THE  RANDOM  STARTING 
C    CONDITIONS. 
C 

CALL  RANDOM! NR,OSEED,NR, TOFF, TON» START tTI I 
C 

C    DO  LOOP  220  ASSIGNS  THE  CAPACITY  RATING  TO  EACH  HOUSE 
C    ANO  MULTIPLIES  BY  A  FACTOR  N/60  TO  EXPRESS  EACH  N-MIN- 
C    UTE  INTERVAL  CONSUMPTION  IN  KWH.  IT  ALSO  TOTALS  THE  H 
C    RATINGS  TO  OETERMINE  HE  MAXIMUM  AMOUNT  OF  ENERGY  WHICH 
C    MAY  BE  CONSUMEO  IN  ANY  N-MINUTE  INTERVAL. 
C 

DO  220  I=I,HNUH 

CAPIII=l*.0*NJ/60 
EMAX=EMAX+CAPCI1 
220    CONTINUE 
C 

C    DO  LOOP  300  PERFORMS  THE  CALCULATIONS  REQUIRED  TO  PRO- 
C    DUCE  A  SUMMED  LOAD  CURVE  MADE  UP  OF  M  HOUSES. 
C 

00  300  I=l,HNUM 
T=TIII» 

STATE=STARTCIJ 
C 

C         OUNCON    IS    USED    TO    PRODUCE    THE    TRANSITIONS    FOR    THE 
C         UNCONTROLLED    CASE. 
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CALL  DUNCONI ALPHA, BETA, T, ST ATE, TON, TOFF, J, TDAY, 
■»  TRANS, TEMPI 

CALL  DNAVGl TDAY, T PANS, TEMP, J, ALPHA, BETA, N.PWR, 

*  TEMPAV) 
C 

C    DCON  IS  USED  TO  PRODUCE  THE  TRANSITIONS  FOR  THE  CQN- 

C    TROLLED  CASE. 

C 

CALL  DC0N(ALPHA,3ETA,T,STATE,TCN,TCFF,7.5,K, 

*  STATUS, CTOAY.CTEMP) 

CALL  DNAVG I  CTOAY,  STATUS,  CTEMP.K,  ALPHA,  B  ETA,  N,CPWR, 

*  CTEMAV1 
C 

C    DO  LOOP  310  MULTIPLIES  EACH  TERM  IN  THE  AVERAGE  POWER 

C    CONSUMPTION  VECTOR  BY  THE  CAPACITY  FACTOR  FOR  THE 

C    HOUSE.  IT  ALSO  SUMS  THE  AVERAGE  POWER  CONSUMPTION  OF 

C    BOTH  CASES  FOR  EACH  N-MINUTE  PERIOD  FOR  THE  M  HOUSES 

C    INTO  TWO  VECTORS.  THE  AVERAGE  POWER  IS  NORMALIZED  TO  A 

C    MAXIMUM  OF  1. 

C 

DO  310  J=1,D 

CENERI  JI=CPWR(  J)«-CAP(II 
UENERI J)=PWR«J1*CAP( II 
310       CONTINUE 
C 

C    DO  LOOP  350  SUMS  ThE  ENERGY  CONSUMPTION  FOR  EACH  N- 
C    MINUTE  INTERVAL  AND  NORMALIZES  ACCORDING  TO  THE  MAXIMUM 
C    POSSIBLE  CONSUMPTION  FOR  M  HOUSES. 
C 

DO  350  J=1,D 

USYSIJI=USYSUI+UENER(J1/EMAX 
CSYSCJ)=CSYS(J)+CENER(JI/EMAX 
350       CONTINUE 
300    CONTINUE 
C 

C    DO  LOOP  400  CALCULATES  THE  ENERGY  SAVINGS  IN  EACH  N- 
C    MINUTE  INTERVAL. 
C 

DO  400  1=1, D 

ESAVEI II  =  USYS(II-CSYS( I  I 
400    CONTINUE 
C 

C    OVEPWR  IS  USED  TO  CALCULATE  THE  AVERAGE  ENERGY  SAVINGS 
C    ON  AN  HOURLY  BASIS  OVER  A  30  HOUR  PERIOD. 
C 

CALL  DVEPWR(ESAVE,60,N,EAVGI 
C 

C    SUBROUTINE  CALC  IS  CALLED  TO  CALCULATE  THE  AVERAGE  ONE- 
C    HOUR  ENERGY  SAVINGS  (STOREO  IN  COLUMN  1  OF  MATRIX 

M-5 


C    STATHA)  OVER  30  HOURS  AND  THE  STANDARD  DEVIATION  CF 

C    THAT  AVERAGE  (STORED  IN  COLUMN  2  OF  STATMA). 

C 

CALL    CALC(EAVG, 30, STATS) 

STATMA(L»l)=STATSIl) 

STATMA(L,2)=STATS(5) 
99  CONTINUE 

WRITE    (10,*) 

WRITE     (10,1000)     •     STATISTICS    FOR    TRIALS    OF'.HNUM, 
*  'HOUSES' 

WRITE    (10,1001)     •    TRIAL', 'AVG','STD' 

WRITE  110,1002)  (I,STATMA( 1,1 1 ,STATHA( 1,2) ,  1=1, L-l) 
98     CONTINUE 

1000  FORMAT  ( A25, IX, 13 , IX  ,A6 ) 

1001  FORMAT  (2X,A6,5X,A3,5X,A3) 

1002  FORMAT  ( *X,I2,6X,F5. 3,3X,F5.3 ) 
STOP 

END 
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*  PROGRAM  HOUROIST  IS  USED  TO  FIND  THE  STATISTICS  OF  THE 
<■  HOURLY  AVERAGE  ENERGY  SAVINGS  FOR  A  LOAD  CURVE  MADE  OF 

*  A  VARYING  NUMBER  OF  HOUSES.  AVERAGE  AND  STANDARD  DEV- 

*  IATION  WERE  FOUND  FOR  EACH  HOUR  OF  A  10  HOUR  PERIOD. 

*  TO  DO  THISt  10  INDEPENT  TRIALS  WERE  RUN  FOR  EACH  LOAD 

*  CURVE. 

« 

INTEGER  UNIT2,J,K,M,NR,0,NUMREP,INTLEN 

REAL  ALPHA, BET A»T,TD AY (600 ), TOM, TOFF, PWR ( 200 ) , 

*  CTDAY1600T,CPWRI200),TI(1000I,USYS(200(,CSYSI200), 

*  EMAX,STATS(5),CAP(5  00),UENER(200),CENER(200», 

*  CURVE(10),AVGSAV(  10 ), TEMP  I  600 ) ,CTEMP ( 6001 , 

*  AVGI10),SD(10),TMATR( 10,1 0 ) ,CTMATR ( 10 , 10 ) , 
O    AVGTEM(50),CAGRTE12  00),CAVGTEI50),TAVG(10», 

*  CTAVGf 10) ,CTSD( 101 , TCURVE ( 10  I .CTCURV ( 10),SAVAVS, 

*  TEMPAV(200),CTEMAV(  200  ),  CYCLE  ,N,  TSDUO)  , 

*  ESAVE(200),MATRIX(10,10),AGRTEM(200) 
DOUBLE  PRECISION  DSEED 

CHARACTER  ST  ATE* 3, STARK  500 ) *3 , TRANS ( 600  )*3 , 

*  STATUS  I  600 1*3 


9  VARIABLE  NAMES: 

*  ALPHA  -  COOLING  COEFFICIENT  WITH  THE  A/C  ON. 

*  IOEGF/MINI 

*  BETA  -  HEATING  COEFFICIENT.  (1/MIN) 

*  T  -  VARIABLE  USED  TO  KEEP  TRACK  OF  TEMPERATURE. 

*  TON  -  TEMPERATURE  AT  WHICH  THE  SYSTEM  TURNS  ON. 
«  (DEGF) 

*  TOFF  -  TEMPERATURE  AT  WHICH  THE  SYSTEM  TURNS  OFF. 

*  (OEGF) 

*  N  -  VARIABLE  SPECIFYING  THE  LENGTH  OF  THE  PERICD  OF 

*  INTEREST  FOR  POWER  AND  ENERGY  CONSUMPTION. 

*  M  -  VARIABLE  SPECIFYING  THE  NUMBER  OF  HOUSES  USED  TO 

*  PRODUCE  A  SUMMED  LOAD  CURVE. 

*  TDAYI1800),  TRANS(1800),  TEMP.(iaOG)  -  VECTORS  FOR 

*  STORING  TRANSTION  TIMES,  STATES  (ON/OFF),  AND 

*  TEMPERATURES  FOR  THE  UNCONTROLLED  CASE. 

*  CTDAYI600),  STATUSI600),  CTEMPI600)  -  VECTORS  FOR 

*  STORING  TRANSITION  TIMES,  STATES  (ON/CFF),  AND 

*  TEMPERATURES  FOR  THE  CONTROLLED  CASE. 

*  PWRI200),  CPWRI200)  -  VECTORS  STORING  THE  FRACTION  OF 

*  EACH  N-MINUTE  PERIOD  IN  WHICH  THE  A/C  IS  ON  FOR 

*  BOTH  OF  THE  CASES. 
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•  TEMPAV(200),  CTEMAVJ2O0)  -  VECTORS  STORING  THE  N- 

•  MINUTE  TEMPERATURE  AVERAGES  FOR  BOTH  OF  THE  CASES. 

•  CAP15O0I  -  VECTOR  TO  STORE  THE  CAPACITY  FACTOR  FOR 
»  EACH  HOUSE. 

o  UENERJ200),  CENERJ20OI,  SCENERJ200)  -  VECTORS  FOR 

•  STORING  THE  N-MINUTE  ENERGY  CONSUMPTIONS  FOR  EACH 
«         OF  THE  THREE  CASES. 

EMAX  -  VARIABLE  USED  TC  DETERMINE  THE  MAXIMUM  N- 
MINUTE  ENERGY  CONSUMPTION  FOR  M  HOUSES  WITH  A 

•  GIVEN  CAPACITY  FACTOR. 

•  USYSI200I,  CSYS«200)  -  VECTORS  STORING  THE  TOTAL 

•  ENERGY  CONSUMPTION  FOR  EACH  N-HINUTE  INTERVAL  FOR 

•  HNUM  HOUSES  FOR  BOTH  CASES. 

"      OSEEO  -  SEED  NUMBER  USED  TO  GENERATE  RANDOM  NUMBERS. 
«      NR  -  THE  NUMBER  OF  RANDOM  NUMBERS  TO  3E  GENERATED. 
R(IOOO)  -  VECTOR  OF  RANDOM  NUMBERS. 

•  TII5O0I,  START1500)  -  VECTORS  THAT  STORE  THE  INITIAL 

•  TEMP.  AND  STATE  FOR  EACH  OF  THE  M  HOUSES. 

•  STATSI5)  -  VECTOR  CONTAINING  THE  STATISTICS  FOR  THE 

•  LOAD  CURVE. 

•  UNIT2  -  VARIABLE  USED  TO  ESTABLISH  AN  OUTPUT  FILE. 

•  J  -  VARIABLE  CONTAINING  THE  NUMBER  OF  TRANSITIONS  IN 

•  TDAY. 

•  K  -  VARIABLE  CONTAINING  THE  NUMBER  OF  TRANSITIONS  IN 

•  CTDAY. 

•  D  -  VARIABLE  CONTAINING  THE  NUMBER  OF  N-MINUTE  PER- 

•  IODS  IN  10  HOURS. 

•  ESAVE1200I  -  A  VECTOR  STORING  THE  DIFFERENCE  BETWEEN 

•  THE  UNCONTROLLtD  AND  CONTROLLED  TOTAL  ENERGY  CON- 

•  SUMPTION  FOR  EACH  N-MINUTE  INTERVAL. 

•  AVGSAVIIO)  -  A  VECTOR  STORING  THE  HOURLY  AVERAGE 

•  ENERGY  SAVINGS. 
MATRIX! 10,10)  -  MATRIX  OF  THE  HOURLY  ENERGY  SAVINGS 

•  FOR  EACH  REPITITION. 

•  CURVEI10J  TCURVE(IO),  CTCURV(IO)  -  INTFRMEDIATE  VEC- 

•  TORS  THAT  STORE  THE  ENERGY  SAVINGS  AND  AVERAGES 

•  TEMPERATURES  FOR  A  PARTICULAR  HOUR  IN  ORDER  TC 

•  CALCULATE  THE  STATISTICS  FOR  THAT  HOUR. 

•  AVGIIO),  SO(IO),  TAVGCIO),  TSD(IO),  CTAVGUO), 

CTSD(IO)  -  VECTORS  THAT  STORE  THE  ENERGY  SAVINGS 

•  AND  AVERAGE  TEMPERATURE  STATISTICS. 

NUMREP  -  A  VARIABLE  WHICH  CONTAINS  THE  NUMBER  OF 

•  REPITITIONS  THAT  WILL  BE  PERFORMED  FOR  FACH  SPEC- 

•  IFIEO  CURVE. 

•  TMATRdO,  10),  CTMATR(ICIO)  -  MATRICES  TC  STO»E  THF 

•  AVERAGE  TEMPERATURES  FOR  THE  UNCONTROLLED  AND  THF 

•  CONTROLLED  CASES. 

AGRTEMI200),    CAGRTEI200)    -    VECTORS    USED    TO    CALCULATE 
THE    AVERAGE    AGREGATE    TEMPERATURE    FOR    N-MINUTE 

•  PERIODS    FOR    THE    CONTROLLED    ANO    UNCONTROLLED    CASES. 
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*  AVGTEMI50),  CAVGTEI50I  -  VECTORS  THAT  STORE  THE  AVFR- 

*  AGE  AGGREGATE  TEMPERATURE  FOR  PERIODS  LONGER  THAN 

*  N  MINUTES. 

o 

» 

UNIT2=10 

OPEN  fUNIT=UNIT2,FILE= ■IOUN2') 

ALPHA=1. 03317 

3ETA=.0223l<r355 

NUMREP=10 

INTLEN=30 

USEED=67543283'».00 

WRITE  (10,30)  •  CASES  FOR  ALPHA=* , ALPHA t •  AND  E6TA=«, 
*    BETA 

WRITE  (10,<-) 
C 

C    DO  LOOP  90  ALTERS  THE  NUMBER  OF  HOUSES  IN  THE  LOAD 
C    CURVE. 
C 

DO  90  0=1,1 
M=Q 
C 

C    DO  LOOP  101  PERFORMS  THE  DESIRED  NUMBER  OF  REPITITIONS 
C    FOR  EACH  NUMSER  OF  HOUSES. 
C 

DO  101  L=1,NUMREP 
C 

C    DO  LOOP  100  INITIALIZES  ALL  OF  THE  ELEMENTS  OF  THE 
C    TOTAL  SYSTEM  CURVES  TO  0. 
C 

DO  100  J=l,200 
USYSI J)=0 
CSYSt J)=0 
AGRTEMU)=0 
CAGRTE(J)=0 
100    CONTINUE 

N=5 

0=6O0/N 

T0N=74 

TOFF=70 

EMAX=0 
C 

C    RANDOM  IS  CALLED  TO  GENERATE  THE  RANDOM  STARTING  CONOI- 
C    TIONS. 
C 

CALL  RAN00M<M,0SEE0,M,T0FF,TnN,START,TI> 

DO  205  1=1, M 

IF  (START(I)  .EQ.  'CFF'I  THEN 
STARTi I)='ON' 
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ELSE 

START! I1='0FF« 

ENDIF 
205  CONTINUE 
C 

C    DO  LOOP  220  ASSIGNS  THE  CAPACITY  RATING  TO  EACH  HOUSE 
C    AND  MULTIPLIES  BY  A  FACTOR  N/60  TO  EXPRESS  EACH  N-MIN- 
C    UTt  INTERVAL  CONSUMPTION  IN  KWH.  IT  ALSO  TOTALS  THE  M 
C    RATINGS  TO  DETERMINE  THE  MAXIMUM  AMOUNT  OF  ENERGY  WHICH 
C    MAY  BE  CONSUMED  IN  ANY  N-MINUTE  INTERVAL. 
C 

DO  220  1=1, H 

CAPlII  =  t<t.0=»Nl/60 

EMAX=EMAX+CAPtII 
220    CONTINUE 
C 

C    DO  LOOP  300  PERFORMS  THE  CALCULATIONS  REQUIRED  TC  PRO- 
C    OUCE  A  SUMMEO  LOAD  CURVE  MAOE  UP  OF  M  HOUSES. 
C 

00  300  1=1, M 

T=TI( II 

STATE=START(I1 
C 

C    UNCON  IS  USED  TO  PRODUCE  THE  TRANSITIONS  FOR  THE  UNCON- 
C    TROLLED  CASE. 
C 

CALL  UNCONC ALPHA, BE TA,T, STATE, TON, TOFF, J, TDAY, 

*  TRANS, TEPP,CYCLEI 

CALL  N AVGC TDAY, TRANS, TEMP, J, ALPHA, 3ET A, N,PWR, 

*  TEMPAVI 
C 

C    CON  IS  USED  TO  PRODUCE  THE  TRANSITIONS  FOR  THE  CCN- 

C    TROLLEO  CASE. 

C 

CALL  CON (ALPHA, BETA, T, STATE, TON, TOFF, 7. 5, K, STATUS, 

*  CTDAY.CTEMP, INTLEN) 

CALL    NAVG (CTD AY, STA TUS,CTEMP, K, ALPHA, BETA, N,CPWR, 

*  CTEMAVI 
C 

C    DO  LOOP  310  MULTIPLIES  EACH  TERM  IN  THE  AVERAGE  POWER 

C    CONSUMPTION  VECTOR  BY  THE  CAPACITY  FACTOR  FOR  THE 

C    HOUSE.  THE  RESULT  IS  AVERAGE  ENERGY  CONSUMPTION  FOR  THE 

C    N-MINUTE  PERIOD. 

C 

DO  310  J=1,D 

CENERI  J)=CPWR{J)=>CAP(II 
UENER1  J)  =  P'wRIJ)*CAP(I) 
310       CONTINUE 
C 
C    00  LOOP  350  SUMS  THE  ENERGY  CONSUMPTION  FOR  EACH  N-MTN- 
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C    UTE  INTERVAL  AND  NORMALIZES  ACCOROING  TO  THE  MAXIMUM 

C    POSSIBLE  CONSUMPTION  FOR  M  HOUSES.  IT  ALSO  COMPUTES  THE 

C    AVERAGE  TEMPERATURE  FOR  EACH  N-MINUTE  INTERVAL  OVER  THE 

C    WHOLE  LOAO  CURVE  FOR  BOTH  THE  CONTROLLED  ANO  UNCCN- 

C    TROLLEO  CASES. 

C 

DO  350  J=1,D 

USYS1J)=USYSCJI  +  C'ENER(  JI/EMAX 
CSYS(J)=CSYS(J)+CENER(J)/£MAX 
AGRTEM«J>=AGRTEM1J>+TE«PAV{J)/M 
CAGRTEU)=CAGRTECJI+CT£MAV(J>/M 
350       CONTINUE 
300    CONTINUE 
C 

C    DO  LOOP  400  CALCULATES  THE  ENERGY  SAVINGS  IN  EACH  N- 
C    MINUTE  INTERVAL. 
C 

00  400  1=1, D 

ESAVE{I)=USYSII>-CSYS< I) 
400    CONTINUE 
C 

C    AVEPWR  IS  USEO  TO  CALCULATE  THE  AVERAGE  ENERGY  SAVINGS 
C    ANO  AGGREGATE  TEMPERATURE  FOR  EACH  HOUR  OF  THE  10  HOUR 
C    PERIOD. 
C 

CALL  AVEPKRCESAVE,60,INTIN>,AVGSAV) 
CALL  AVEPWRI AGRTEM,60,INTIN> ,AVGTEM) 
CALL  AVEPWR(CAGRTE,60, INT(M) .CAVGTE) 
C 

C    DO  LOOP  410  STORES  THE  ONE-HOUR  AVERAGE  ENERGY  SAVINGS 
C    AND  AGGREGATE  TEMPERATURE  IN  MATRICES. 
C 

DO  410  1=1,10 

MATRIX(I,L)=AVGSAV( I) 
TMATRI I,L)=AVGTEM(U 
CTMATR(I,L)=CAVGTE( I) 
410    CONTINUE 
1C1    CONTINUE 
C 

C  DO  LOOP  500  PERFORMS  THE  REPITITIONS  NEEDED  TO  CALCU- 
C  LATE  THE  STATISTICS  FOR  THE  ENERGY  SAVINGS  ANO  AGGRC- 
C  GATE  TEMPERATURE  FOR  EACH  HOUR  OF  THE  10  HOUR  PERIOD. 
C 

DO  500  L=l,lO 
C 

C    DO  LOOP  510  STORES  THE  APPROPRIATE  ROW  IN  AN  INTERMED- 
C    IATE  ARRAY  TO  CALCULATE  THE  STATISTICS. 
C 

DO  510  I=1,NUMREP 

CURVE(I)=MATRIX(L,I) 
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TCURVE(I)=TMATRl  Ltll 

CTCURV(I)=CTMATR(L,I) 
510       CONTINUE 
C 

C    CALC  IS  CALLED  TO  CALCULATE  THE  STATISTICS  AND  THF 
C    STATISTICS  ARE  STORED  IN  ARRAYS  TO  BE  WRITTEN  I^Q  A 

«      r"I  UC  • 

c 

CALL    CALC(CURVE,NUMREP, STATS) 
AVG(L)=STATS( I) 
S0(L)=STATS(5) 

CALL  CALC(TCURVE,NUPREP, STATS) 
TAVG(L)=STATS(l) 
TSD(L)=STATS(5) 

CALL    CALC(CTCURV,NUMREP,STATSI 
CTAVG(L)=STATS( 1) 
CTS0(L)=STATS(5) 
500         CONTINUE 

^"HOUSES'00'  '  ENERGY  SAVINGS  STATISTICS  FOR',*, 

WRITE  (10,601)  •  HOUR'.'AVG  SA  VI  NGS  •  ,  •  A  VG  +  2*SD«. 
•    'AVG  -  Z*SD* 

^lT.^    «10,602)  tl.lOOOAVGID.lOO^AVGID+lZOOfSOd)), 
-JAVGJI)*100  -  (200*S0(I)),  I=ltiO)  *U«IM» 

SAVAVG  =  0 
DO  550  1=1,10 

SAVAVG  =  SAVAVG  +  AVG(I) 
550    CONTINUE 

SAVAVG  =  (SAVAVG/lOl-noO 
WRITE  110,610)  SAVAVG 
610    FORMAT  <•  AVERAGE  HOURLY  SAVINGS  =  •,F6.3,':5.) 
WR ITE  (lOf*) 
WRITE  (10,603)  M 
WRITE  (10,604) 
WRITE  (10,605)  tI,TAVG(II,TAVGm  +  2*TSD(I),TAVG(I>- 

:  ss!S;rK:sreww,n**wso,,,'jT;S"!" 

WRITE  (10,*) 
90     CONTINUE 

FORMAT  (A17,1X,F6.4,A10,IX,F6.4> 
FORMAT  (A30,1X,I3,1X,A6) 

601  FORMAT  ( A5, 3X, Al 1 , 3X, A  10, 3X, Al 0 ) 

602  FORMAT  t2X,I2,6X,F7.4,6X,F7.4,6X,F7.4> 

•      "housesmMPERATURE  STATISTrcs  raJ'!ix.n,ix. 

604    FORMAT  (•  HOUR • , 2X , • UNCON  TEMP«,2X,'UT  +  2*SC'.?X 

•   'ct  :  2:sd.';2X,,C0N  temp-'"'-ct  ♦  2*so2.'2x:2X* 


HO 
600 


605 


™F6:2:ix;F5:2x'F6-2',x'F6-2'5x'F6-5x— •«• 
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STOP 
ENO 
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*  PRUGRAM  CYCLE  GENERATES  THE  AVERAGE  HOURLY  SAVINGS  AS  A 

*  FUNCTION  OF  DUTY  CYCLE.  EACH  CASE  IS  RUN  10  TIMES  TO 

*  GENERATE  A  RANGE  OF  POSSIBLE  VALUES. 

■> 

=s 

INTEGER  UNIT2,J,K,M,NR,0,UNIT7,UNIT8,NUMRE,> 
REAL  ALPHA, BETA, T, TDAY I  600), TON, TOFF, PWR I  200), 

*  CTDAY(600>,CPWRf200),TII500),USYS{2CO),CSYS(200>, 
■»    EMAX,STATSC5),CAP(500)  ,UENFR(200)  ,CENER(200>, 

*  CURVE! 10),AVGSAV(  10  I , TEMP ( 600 ) ,C TEMP ( 6001 , 

*  CTEMAV(200),ESAVEC2  00),AVG,SD,TMATR(10,10), 

*  CTMATRC 10,10 ),AGRTEM< 200) ,AVGTEM( 50) ,CAGRTEI 200 ) , 

*  TCURVEI10),CTCURV(IC),CYCLE,N,TAM8,LC0N,INTLFN, 

*  CAVGTEJ50 ),TAVG, TSO ,CT A VG,CTSD, MATRIX (10,10), 

*  TEMPAVC200) 
DOUBLE  PRECISION  OSEED 

CHARACTER  STATE*3,  STAP  T  (  50  0)  *3,TRANS  <  500  l*-3, 
»    STATUS«500)*3 

*i 

W«MO»W»Wi}»«9(!»»i>«if.l!>4W»S4M!i.{i#j>«s»5*«s*4«4<i«(!«c«(iSftT![ 

*  VARIA3LE  NAMES: 

*  ALPHA  -  COOLING  COEFF.  WITH  THE  A/C  ON.  (OEGF/MIN) 

*  BETA  -  HEATING  COEFFICIENT.  (1/"IN) 

*  T  -  VARIABLE  USED  TO  KEFP  TRACK  OF  TEMPERATURE. 

*  TON  -  TEMPERATURE  AT  WHICH  THE  SYSTEM  TURNS  ON. 

*  (DEGFI 

*  TUFF  -  TEMPERATURE  AT  WHICH  THE  SYSTEM  TURNS  OFF. 

*  (DEGF) 

*  N  -  VARIABLE  SPECIFYING  THE  LENGTH  OF  THE  PERIOD  CF 

*  INTEREST  FOR  POWER  AND  ENERGY  CONSUMPTION. 

*  M  -  VARIABLE  SPECIFYING  THE  NUMBER  OF  HOUSES  USED  TO 

*  PRODUCE  A  SUMMED  LOAD  CURVE. 

*  TUAYJ600),  TRANSI600),  TEMPI600)  -  VECTORS  FOR  STCR- 

*  ING  TRANSITION  TIMES,  STATES  (ON/OFF),  AND  TEMP- 

*  ERATURES  FOR  THE  UNCONTROLLED  CASE. 

*  CTDAYI600),  STATUSI600),  CTFMPCOO)  -  VICTORS  FOR 

*  STORING  TRANSITION  TIMES,  STATES  (ON/OFF),  AND 

*  TEMPERATURES  FOR  THE  CONTROLLED  CASF. 

*  PWRC200),  CPWRC200)  -  VECTORS  STORING  THE  FRACTION  OF 
"         EACH  N-MINUTE  PERIOD  IN  WHICH  THE  A/C  IS  CN  FOP 

*  BOTH  OF  THE  CASES. 

TEMPAVI200I,  CTEMAVI200)  -  VECTORS  STORING  TH<=  N-MIN- 

*  UTE  TEMPERATURE  AVERAGES  FOP  10TH  OF  THE  CAS'S. 

*  CAPI500)  -  VECTOR  TO  STORE  THE  CAPACITY  FACTOR  FCR 

*  EACH  HOUSE. 
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•  UENER(200lf    CENERI200)    -    VECTORS    FOR    STORING    THE 
*>  N-MINUTE    ENERGY    CONSUMPTIONS    FOR    EACH    OF    THE 

•  THREE    CASES. 

"  EMAX  -  VARIABLE  USEO  TC  DETERMINE  THE  MAXIMUM  N- 

•  MINUTE  ENERGY  CONSUMPTION  FOR  M  HOUSES  WITH  A 

•  GIVEN  CAPACITY  FACTOR. 

•  USYS(20O)f  CSYSI200)  -  VECTORS  STORING  THE  TOTAL 

•  ENERGY  CONSUMPTION  FOR  EACH  N-MINUTE  INTERVAL  FOR 

•  HNUM  HOUSES  FOR  BOTH  CASES. 

■•  OSEED  -  SEEO  NUMBER  USED  TO  GENERATE  RANDOM  NUMBERS. 

•  NR  -  THE  NUMBER  OF  RANCOM  NUMBERS  TO  BE  GENERATED. 
o  RI5O0)  -  VECTOR  OF  RANDOM  NUMBERS. 

•  TII5O0)t  STARTI5O0)  -  VECTORS  THAT  STORE  THE  INITIAL 

•  TEMP.  AND  STATE  FOR  EACH  OF  THE  M  HOUSES. 

•  STATSI5)  -  VECTOR  CONTAINING  THE  STATISTICS  FOR 
»  THE  LOAO  CURVE. 

=»  UNIT2  -  VARIABLE  USED  TO  ESTABLISH  AN  OUTPUT  FILE. 

•  J  -  VARIA3LE  CONTAINING  THE  NUMBER  OF  TRANSITIONS 

•  IN  TDAY. 

■>  K    -    VARIABLE    CONTAINING    THE    NUMBER    OF    TRANSITIONS 

•  IN  CTDAY. 

•  D  -  VARIABLE  CONTAINING  THE  NUMBER  OF  N-MINUTE 

•  PERIODS  IN  10  HOURS. 

•  ESAVEt200)  -  A  VECTOR  STORING  THE  DIFFERENCE  BETWEEN 

•  THE  UNCONTROLLED  AND  CONTROLLED  TOTAL  ENERGY  CON- 

•  SUMPTION    FOR    EACH    N-MINUTE    INTERVAL. 

«■  AVGSAV(IO)    -    A    VECTOR    STORING    THE    HOURLY    AVERAGE 

•  ENERGY  SAVINGS. 

■>  MATRIX!  10 » 101  -  MATRIX  OF  THE  HOURLY  ENFRGY  SAVINGS 

•  FOR  EACH  REPITITION. 

•  CURVE!  10)  TCURVEOOlt  CTCUPV(IO)  -  INTERMEDIATE  VEC- 

•  TORS  THAT  STORE  THE  ENERGY  SAVINGS  AND  AVERAGES 

•  TEMPERATURES  FOR  A  PARTICULAR  HOUR  IN  ORDER  TC 

•  CALCULATE  THE  STATISTICS  FOR  THAT  HOUR. 

•  AVGClOlt  SOCIO),  TAVGIlOJt  TSD(IO),  CTAVG(IO), 

•  CTSD(IO)  -  VECTORS  THAT  STORE  THE  ENERGY  SAVINGS 

•  AND  AVERAGE  TEMPERATURE  STATISTICS. 

•  NUMREP  -  A  VARIABLE  WHICH  CONTAINS  THE  NUMBER  CF 

•  REPITITIONS  THAT  WILL  BE  PERFORMED  FOR  FACH 

•  SPECIFIED  CURVE. 

•  TMATR(10,10) t    CTMATRflO, 10)  -  MATRICES  TC  STORE  THE 

•  AVERAGE  TEMPERATURES  FOR  THE  UNCONTROLLED  AND  TH= 

•  CONTROLLED  CASES. 

»  AGRTEMJ200),  CAGRTE(200)  -  VECTORS  USED  TO  CALCULATE 

•  THE  AVERAGE  AGGREGATE  TFMPFRATURE  FOR  N-MINUTE 

•  PERIODS  FUR  THE  CONTROLLED  AND  UNCONTROLLED  CASES. 

•  AVGTEMI50),  CAVGTEC50)  -  VECTORS  THAT  STORE  THE 

•  AVERAGE  AGGREGATE  TEMPERATURE  FOR  PERIODS  LCNGE? 

•  THAN  N  MINUTES. 

•  TAMB  -  ORIVING  TEMPERATURE  FOR  THE  SYSTEM. 
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LCON  -  LENGTH  OF  THE  CONTROL  PERIOD. 


t 


UNIT2=10 

OPEN  (UNIT=UNIT2,FILE=»I0UN2«) 

ALPHA=. 446287103 

BETA=. 022314355 

N=5 

D=600/N 

T0N=74.0 

T0FF=70.0 

NUMREP=10 

INTLEN=10 

LC0N=2.5 

DSEED=789861234.D0 

M=20 

WRITE  (10,801  •  CASES  FOR  ALPHA= •, ALPHA , 
*    '  AND  BETA=',BETA 
WRITE  (10,85)  LCON,INTLEN 
WRITE  (10,*) 
WRITE  (10,600) 
C 

C    00  LOOP  90  LOOPS  OVER  THE  DESIRED  RANGE  OF  TAH3. 

DO  90  L00P=1,4 

TAMB=85.3OO+LOOP*O.03 

r    ??nMc°cni01  PERF0RMS  THE  DESIRED  NUMBER  OF  REPITI- 

C  TIONS     FOR      FAf-H      <;CT      HE     unnceo  rl" 


I. 


TIONS  FOR  EACH  SET  OF  HOUSES^ 
DO  101  L=l,NUMREP 


C 

C    00  LOOP  100  INITIALIZES  ALL  OF  THE  ELEMENTS  OF  THP 
C    TOTAL  SYSTEM  CURVES  TO  0.  '  S  °F    ™E 

DO  100  J=l,200 
USYS( J)=0 
CSYS( J)=0 

AGRTEM( J)=o 
CAGRTE(J)=0 

100    CUNTINUE 
EMAX=0 

c   cSno?tions"LLED  T°  GENERATE  THF  "andoh  st*"in; 
c 

CALL  RANUOM(M,DSEED,,»,  TOFF, TON,  START,  TI) 
00  205  1  =  1,1  "" 

IF  (START(I)  .EQ.  'OFF')  THEN 
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START! I)=»ON« 

ELSE 

STARTIIM'OFF* 

ENDIF 
205  CONTINUE 
C 

C    DO  LOOP  220  ASSIGNS  THE  CAPACITY  RATING  TO  EACH  HOUSE 
C  .  AND  MULTIPLIES  BY  A  FACTCR  N/60  TO  EXPRESS  EACH  N-MTN- 
C    UTE  INTERVAL  CONSUMPTION  IN  KWH.  IT  ALSO  TOTALS  THE  M 
C    RATINGS  TO  DETERMINE  THE  MAXIMUM  AMOUNT  OF  ENER6Y 
C    WHICH  MAY  BE  CONSUMED  IN  ANY  N-MINUTE  INTERVAL. 
C 

DO  2  20  1*1, N 

CAPtI)=(4.0»N)/60 

EMAX=EMAX+CAPJI) 
Z20    CONTINUE 
C 

C    00  LOOP  300  PERFORMS  THE  CALCULATIONS  REQUIRED  TO 
C    PROOUCE  A  SUMMED  LOAD  CURVE  MADE  UP  OF  M  HOUSES. 

DO  300  1  =  1, M 
T=TI(I) 

STATE=START(I) 
C 

C    UMCDN  IS  USED  TO  PROOUCE  THE  TRANSITIONS  FOR  THE 
C    UNCONTROLLED  CASE. 
C 

CALL  UNCONt ALPHA, BETA, T, STATE, TON, TOFF, J, TOAY, 

*  TRANS, TEMP, CYCLE, TAM3, 10.01 

CALL  NAVG <TDAY, TRANS, TEMP, J, ALPHA, «£TA,N,PWR, 

*  TEMPAV.TAM6) 
C 

C    CON  IS  USED  TO  PROOUCE  THE  TRANSITIONS  FOR  THE 

C    CONTROLLED  CASE. 

C 

CALL  CON( ALPHA, BETA ,TI( I >, STATE, TON, TOFF, LCON,K, 

STATUS ,CT0AY,CTEMP,INTLEN,TAM3 I 
CALL  NAVG (CTDAY,STAIUS,CTEMP,K, ALPHA, BETA, N.CPWR, 

*  CTEMAV.TAMB) 
C 

C  DO  LOOP  310  MULTIPLIES  EAC"  TERM  IN  THE  AVERAGE  POWER 

C  CONSUMPTION  VECTOR  BY  THE  CAPACITY  FACTOR  FOR  THF 

C  HOUSE.  THE  RESULT  IS  AVERAGE  ENERGY  CONSUM°TION  FOR  THE 

C  N-MINUTE  PERIOO. 

C 

DO  310  J= 1,0 

CENERI J)=CPWR( J)*CAP(II 

UENERIJ)=PWR(J)*CAP( I) 
310       CONTINUE 
C 
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C    DU  LOOP  350  SUMS  THE  ENERGY  CONSUMPTION  FOR  SACH 

C    N-MINUTE  INTERVAL  AND  NORMALIZES  ACCORDING  TO  THE 

C    MAXIMUM  POSSIBLE  CONSUMPTION  FOR  HNUM  HOUSES.  IT  ALSC 

C    COMPUTES  THE  AVERAGE  TEMPERATURE  FOR  EACH  N-MINUTE 

C    INTERVAL  OVER  THE  WHOLE  LOAD  CURVE  FOR  BOTH 

C    THE  CONTROLLED  AND  UNCONTROLLED  CASES. 

C 

00  350  J=1,0 

USYS( J)=USYS( JI+UENERl JJ/EMAX 
CSYS!J)=CSYS(J)+CENER( Jl/EMAX 
AGRTEMt J)=AGRTEMf J)+TEMPAV( J)/M 
CAGRTE ( J ) =CAGRTE { J )+CTEMAV  t J )/M 
350       CONTINUE 
300    CONTINUE 
C 

C    DO  LOOP  400  CALCULATES  THE  ENERGY  SAVINGS  IN  EACH 
C    N-MINUTE  INTERVAL. 
C 

DO  400  1=1,0 

ESAVE1I»=USYS(I)-CSYS( I) 
400    CONTINUE 
C 

C    AVEPWR  IS  USED  TO  CALCULATE  THE  AVERAGE  ENFRGY  SAVINGS 
C    AND  AGGREGATE  TEMPERATURE  FOR  EACH  HOUR  OF  THF 
C    10  HOUR  PERIOD. 
C 

CALL  AVEPWRIESAVE,60,INTIN»»AVGSAV,10.0) 
CALL  AVEPWR(AGRTEM,60, INT(N) , AVGTEM, 10.0 ) 
CALL  AVEPWR (CAGRTE, 60, INT  INI ,CAVGTE, 10.0) 
C 

C    NEXT,  AVERAGE  THE  SAVINGS  FOR  THE  LAST  9    HOU^.S  OF  THE 
C    PERIOD  AND  SAVE  IT  IN  A  VECTOR  TO  CALCULATE  STATISTICS. 
C 

CURVE(L)=0 
TCURVEIL1=0 
CTCURV(L>=0 
DO  410  1=2,10 

GURVE(L)  =  CURVE(L)+AVGSAV(  I) 
TCURVE(L)=TCURVE(LI-tAVGTE"f  II 
CTCURV(L)=CTCURV(L)+CAVGTE(II 
410    CONTINUE 

CURVE(L)=CURVE(L)/9 

TCURVE(L)=TCURVE(L)/9 

CTCURV(L)=CTCURV(Ll/9 

101    CONTINUE 

517    CONTINUE 

C 

C    CALC  IS  CALLED  TO  CALCULATE  THE  AVERAGE  AND  STANDARD 

C    DEVIATION  OF  THE  DAILY  AVERAGE  SAVINGS. 

C 
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CALL  CALCICURVE,NUMREP, STATS) 

AVG=STATSI1) 

SD=STATSI5) 

CALL    CALCITCURVE.NUMREP, STATS) 

TAVG=STATS(1 I 

TSD=STATS(5I 

CALL  CALC(CTCURV,NUMREP, STATS) 

CTAVG=STATS( 1) 

CTS0=STATSI5) 
C 

C    PRINT  OUT  THE  DATA  FOR  THIS  VALUE  OF  TAMB. 
C 

WRITE  110*6101  CYCLE, TAM3,AVGO100,AVG*100+200*SD, 

*  AVG=»100-200«SD,TAVG,TAVG+2«TSD,TAVG-2*TSD,CTAVG, 
»         CTAVG+2*CTSD,CTAVG-2*CTSD 

90     CONTINUE 

80     FORMAT  (•  '  ,  A17,  IX  ,F6.  4,A  10,  IX  ,F6.'t  > 

8b     FORMAT  («  '.'CONTROL  STATEGY  I S: • , IX, F3. 1 , •  MIN.  OF', 

*  IX, 12) 

600    FORMAT  I'  C YCLE' ,2X, 'T DR I VE' ,2X, 'SAVG' ,3X, '+2S0' , 

*  3X,'-2SD',2X,'TAVG',3X,'+2Sn',3X,'-ZS0',3X, 

*  *CTAVG',2X,'+2S0',3X,'-2S0' ) 

610    FORMAT  («  • ,F5.1 ,2X,F5 .1 , IX, F6.2 , IX ,F6.2 , 1X,F6.2, 

*  1X,F6.2,1X,F6.2,1X,F6.2,1X,F6.2,1X,F6.2,1X,F6.2) 
STOP 

END 
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•  THIS    IS    THE    FINAL    VERSION    CF    UNCON    FOR    CONSTANT    DRIVING 
<■    TEMPERATURE. 
»e»<.www«M«MMWMWMWWMWMWMW,M<iWWMwt 

•  SUBROUTINE  UNCON  DETERMINES  THE  TRANSITION  TI«ES  FOR 
«  THE  UNCONTROLLED  CASE.  THE  RESULTING  TRANSITION  TI1-ES 

•  ARE  RETURNSEO  IN  TDAY  WHICH  IS  A  600  MEMBER  AR°AY 

•  TRANS  RETURNS  THE  STATE  THAT  THE  SYSTEM  GOES  TO  WHEN 

•  THE  TRANSITION  IS  MADE. 

SUBROUTINE  UNCON  ( ALPHA, BETA, T .STATE, TON , TOFF, J, TOAY , 
^  TRANS, TEMP, CYCLE, TAWR,NU»HRS) 

■> 

•  ARGUMENT  EXPLANATIONS: 

•  ALPHA  -  COOLING  COEFFICIENT  WITH  A/C  ON  (DEGF/MI,N). 

•  (INPUT) 

BETA  -  HEATING  COEFFICIENT  (1/MIN).  (INPUT 

T  -  INITIAL  TEMPERATURF  OF  THE  SYSTEM.  (INPUT) 

•  STATE  -  INITIAL  STATF  (ON/OFF)  OF  TH*  A/C.  (INPUT! 

:       I™  *  TEMPERATURE  AT  WHICH  THE  A/C  VuRNS  «  N   UNPUT , 
I  TOFF  -  TEMPERATURE  AT  WHICH  THE  A/C  TURNS  OFF. 

•  J  -  THE  NUMBER  OF  ON/CFF  TRANSITIONS  MADE  IN  A  SPFC- 

•  IFIED  PERIOD.  (OUTPUT) 

•  TDAY  -  VECTOR  OF  LENGTH  j  WHICH  CONTAINS  TRANSITION 

•  TIMES  (IN  MINUTES)  FOR  THE  11-HOUR  PERIOD. 

•  (OUTPUT) 

•  TRANS  -  VECTOR  OF  LENGTH  j  WHICH  CONTAINS  THE  STAT= 

(ON/OFF)  OF  THE  SYSTEM  AFTFR  THE  CDRRESPCNO- 

•  ING  TRANSITION  IN  TDAY.  (OUTPUT) 

TEMP  -  A  VECTOR  THAT  GIVES  THE  TEMPERATURE  OF  THE 
SYSTEM  AT  EACH  TRANSITION.  (OUTPUT) 
"  CYCLE  -  *  ON  FOR  THE  GIVEN  CONSTANTS  AND  DRIVING 

•  TEMPERATURE.  (OUTPUT) 

REAL  ALPHA, BETA, T, TDAY  (*),T'JN,  TOFF, TFMP(*),TAMH,CYCL  = 
*      »TION,TIOFF,NUMHP,S  '  '  '  A  ~, CYCLE 

INTEGER  J 
CHARACTER*!*)  STATE,  TR  ANS  (  «■) 

r-sns^xnsr"* — ~~- — * — * 

•        TAMB  -  DRIVING  TEMPERATURE  FROM  OUTSIOF  TH<:  SYST  =  - 
TION,  TIOFF  -  ON  AND  CFF  TIMES  FOR  THE  GIVEN       * 
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*  SITUATION. 

J=l 

TEMP!J»=T 

TRANS! JI=STATE 

TDAY!J)=0 
C 

C    CALCULATE  PERCENT  OF  THE  TIME  THAT  THE  SYSTEM  IS  ON. 
C 

IF  IALPHA/3ETA  .LE.  ITAMB  -  TOFF  J )  THEN 
CYCLE  =  100 

ELSE 

TION  =  -Il/BETA)  *  LOG! (TOFF  +  ALPHA/3ETA-TAMB )/ 
<■        ITON  +  ALPHA/BETA  -TAMBI  I 

TIOFF  =  -ll/BETAJ  *  LOG! ( T0N-TAM3) / ( TOFF-TAMB ) ) 
CYCLE  =  TIQN/ITION  +  TIOFF)  *  100 

ENDIF 
C 

C    THIS  IF  STATEMENT  STARTS  THE  LOOP  BY  CHECKING  IF  THE 
C    TIME  HAS  EXPIRED. 
C 

100    IF  ITOAYIJ)  .GT.  ( 60*NUMHRS+30 ) )  GO  TO  150 
C 

C    THE  NEXT  THREE  IF  STATEMENTS  CHECK  IF  THE  SYSTEM  IS  IH 
C    AN  EXTREME  SITUATION,  ANC  IF  SO,  CALLS  THE  APPROPRIATE 
C    SUBROUTINE  ANO  STARTS  THE  LOOP  OVER. 
C 

IF  ! ALPHA/BETA  .LF.  ITAMO-TCFFI  .AND.  TAM3  .GT.  TON) 

*  THEN 

CALL  N0CO0LIALPHA,f)ETA»TQN,TAMB.J,TCAY,TRANS,Tr:>'P) 

GO    TO     100 
ENDIF 
IF    ITAMB    .LE.    TON    .ANO.    ALPHA/BETA    .GT.     ITAMh-TOFFIJ 

*  THEN 

CALL  NOHE AT  I  ALPHA, BETA, TOFF, TAM3, J, TDAY, TRANS, 
TEMPI 

GO  TO  100 
ENDIF 
IF  (ALPHA/BETA  .LE.  (TAME-TOFF)  .ANO.  TAM3  .LE.  TOM) 

*  THEN 

CALL  A3EXTI ALPH A, BE TA, TAM B, J ,TCAY , TRANS ,TFMP ) 

GO  TO  100 
ENDIF 
C 

C    THESE  STATEMENTS  DETERMINE  THE  TRANSITIONS  IF  THE 
C    SYSTEM  IS  IN  NORMAL  OPERATION.  IF  THE  SYSTEM  IS  ON, 
C    NEXT  TRANSITION  IS  DETERMINED  USING  THE  COOLING  MQD-L. 
C    IF  THE  SYSTEM  IS  OFF,  THE  NEXT  TRANSITION 
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C    IS  DETERMINED  BY  THE  HEATING  MOD=L. 
C 

IF  (TRANS! J)  .EQ.  'ON' I  THEN 

TDAYl  J  +  l)=TDAYIJ)-{  1/BETA  )=S=LDG  (  (  TOFF+AIPHA/BFTA- 
"  TAM3)/(TEMP(J)+ALPHA/3ETA-TAM3)> 

TRANSIJ+1 )='QFF« 
TEMP! J+l(=TQFF 
J=J  +  1 
ELSE 

TDAY1J+1I=TDAY(J1-1  1/3ETA )*LOG! I TON-TAM3 »/ 
•       1TEMPIJ1-TABH 
TRANS!  J-t-l)  =  'ON' 
TEMP! J+l)=TON 
J=J+l 
ENDIF 
C 

C    THIS  STATEMENT  STARTS  THE  LOOP  OVER  AGAIN 
C 

GO  TO  100 
150    RETURN 
END 
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■> 

*  THIS  IS  THE  VERSION  OF  CON  USED  WITH  CYCLE  FORTRAN. 

*  IT  REPRESENTS  THE  FINAL  VERSION  UTILIZING  CONSTANT 

*  DRIVING  TEMPERATURE. 

*  SUBROUTINE  CON  DETERMINES  THE  TRANSITION  TIMES   AND 

*  STATES  OF  THE  SYSTEM  FOR  THE  CONTROLLED  CASE.  THE 

*  SYSTEM  IS  AUTOMATICALLY  CFF  FOR  THE  FIRST  LCON  MINUTES 

*  OF  EACH  HALF  HOUR.  THE  SUBROUTINE  GENERATES  DATA  FOR 

*  AN  11  HOUR  PERIOD.  CTDAY  RETURNS  THE  TRANSITION  TIMES 

*  AND  STATUS  RETURNS  THE  CCRRESPONDI NG  STATES. 

o 
« 

SUBROUTINE  CON (ALPHA, 3ETAfTI .STATE, TON .TOFF t LCCN.K, 
*  STATUS, CTDAY, T , INTLFN.TAM3 ) 

• 

■>  ARGUMENT  EXPLANATION: 

*  ALPHA  -  COOLING  COEFFICIENT  WIHT  A/C  ON  IOEGF/MINJ. 

*  (INPUT) 

*  BETA  -  HEATING  COEFFICIENT  (1/MIN).  (INPUT) 

*  TI  -  INITIAL  TEMPERATURE.  (INPUT) 

*  STATE  -  THE  INITIAL  STATE  (ON/OFF)  OF  THE  A/C. 

•>  TON  -  TEMPERATURE  AT  WHICH  A/C  SHUTS  OFF.  (INPUT) 

*  TOFF  -  TEMPERATURE  AT  WHICH  A/C  SHUTS  OFF.  (INPUT) 
o  LCON  -  VARIABLE  THAT  SPECIFIES  THE  LENGTH  OF  THE 

■»  CONTROL  PERIOD.  (INPUT) 

*  K  -  VARIABLE  THAT  COUNTS  THE  NUM3FP  OF  TRANSITIONS 

*  IN  AN  11-HOUR  PERIOD.  (OUTPUT) 

*  STATUS  -  A  VECTOR  OF  LENGTH  K  THAT  GIVES  THE  STATE 

*  (ON/OFF)  AFTER  EACH  TRANSITION.  (OUTPUT) 
■»  CTDAY  -  A  VECTOR  OF  LENGTH  K  THAT  CONTAINS  THE 

»  TRANSITION  TIMES  (IN  MINUTES)  FOR  THE  GIVEN 

*  SITUATION.  (OUTPUT) 

*  T  -  A  VECTOR  CONTAINING  THE  TEMPERATURES  AT  THE 
=>  TRANSITION  TIMES.   (OUTPUT) 

*  INTLEN  -  LENGTH  OF  INTERVAL  OF  WHICH  THE  FIRST  LCON 

*  MINUTES  ARE  AUTOMATICALLY  OFF. 


INTEGER  K 

REAL  ALPHA, BET A, T(* ) ,TCN,TOFF,CTDAY ( * ) ,TT , LCON, TAM3, 
=■    INTLEN 
CHARACTER*!*)  ST ATUS (*), STATE 
CHARACTERS  PREVST 
DOUBLE  PRECISION  OSEED 
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o 

*  VARIABLE  EXPLANATION: 

»  TAMB  -  TEMPERATURE  DRIVING  FORCE  FROM  OUTSIDE  THE  . 

*  SYSTEM. 

*  PREVST  -  VARIABLE  TO  KEEP  TRACK  OF  THE  STATE  CON/ 

«  /OFF)  OF  THE  SYSTEM  AT  THE  TIME  OF  CONTROL. 

PREVST=STATt 

K=l 

TIK)=TI 
C 

C    EACH  LOOP  OF  DO  LOOP  100  REPRESENTS  1  HALF-HOUR  PERIOD. 
C 

00  100  I=l,INT(630/INTLEN) 
STATUS(K)='OFF« 
CTDAYIK)=II-ll  *  INTLEN 

T(K+l)=TAMB+(T(K)-TAM3)*EXP(-BETA«-LCCN) 
C 

C    THESE  THREE  IF  STATEMENTS  DETERMINE  IF  AN  EXTREME 
C    CASE  IS  PRESENT  CONTROL  TO  THE  SECTION  OF  THE  SUB- 
C    ROUTINE  THAT  HANDLES  THAT  PARTICULAR  CASE.  IF  AN  EX- 
C    TREME  CASE  OOES  NOT  EXIST,  OPERATION  PROCEEDS  IN  A 
C    NORMAL  FASHION. 
C 

IF  (ALPHA/BETA  .LE.  (TAM3-T0FF)  .AND.  TAMB  .GT. 

•  TON!  GO  TO  110 

IF  (TAMB  .LE.  TON  .AND.  ALP«A/9ETA  .GT. 

•  (TAM3-T0FF1)  GO  TO  120 

IF  (ALPHA/BETA  .LE.  1TAM3-TQFF)  .AND.  TAMB  .L<=. 

•  TON)  GO  TO  130 
STATUSlK-t-l^'ON' 
K  =  K  +  1 

C 

C    THIS  NESTED  IF  STATEMENT  DETERMINES  THE  FIRST  POST- 

C    CONTROL  TRANSIITION. 


C 


IF  (TIKI  .GE.  TON)  THEN 

CTOAY(K)=CTOAY(K-l)+LCON 
ELSE 

IF  (PREVST  .EQ.  "ON')  THEN 

CTDAY(K)=CTDAY(K-1)+LC1N 
ELSE 

CTDAY(K)=CTDAY(K-l)+LCON-l/eFTA*LnG( 

(TON-TAMB)/(T(K)-TAMfl)> 
T(K)=TON 
ENDIF 
ENDIF 
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c 

C    THIS  IF  STATEMENT  IS  TO  DETERMINE  IF  THE  FIRST  POST- 
C    CONTROL  TRANSITION  IS  PAST  THE  END  OF  THE  HALF  HCUR. 
C    IF  SOt  THE  TEMPERATURE  IS  CORRECTED  TO  THE  END  CF  THE 
C    HALF  HOUR  AND  THE  NEXT  CONTROL  PER IOO  IS  ENTERED. 
C 

IF  (CTDAYIK)  .GE.  I*INTLEN)  THEN 

T( K)=TAMB+IT(K-1 )-TAMB)*EX PI-PET A* I 1*1 NTLEN- 

*  CT0AY1K-1))) 
GO  TO  100 

ENDIF 
C 

C    THE  FOLLOWING  STATEMENTS  ARE  TO  DETERMINE  THE  TRANS- 
C    ITIONS  IN  THE  REST  OF  THE  HALF  HOUR. 
C 
200       K  =  K  +  l 

IF  ISTATUSIK-l)  .EQ.  'ON')  THEN 

CTDAYlK)=CT0AYIK-l)-l/3ETA<-L0G(  I TOFF+ALPHA/?ET A 

*  -TAMDI/ITIK-D  +  ALPHA/3ETA-TAM3)  ) 
STATUSIK)=,OFF" 

T(K)=TOFF 
ELSE 

CTDAYIK)=CT0AY(K-1)-1/BETA'9L0GI  (TON-TAMS)/ 

*  ITIK-DTAM8)  ) 
STATUSIK)=,ON' 
T(K)  =  TON 

ENOIF 
C 

t    THIS  IF  STATEMENT  CHECKS  IF  THE  LAST  TRANSITION  EX- 
C    CEEOEO  THE  ENO  OF  THE  HALF  HOUR.  IF  NOT  CONTROL  IS 
C    RETURNED  TO  200. 
t 

IF  (CTDAYIK)  .LT.  I*INTLEN)  GO  TO  200 
C 

C    IF  THE  ENO  OF  THE  HALF  HOUR  HAS  BEEN  PEACHED,  THESC 
C    IF  STATEMENTS  CORRECTS  THE  TF*PFRATURE  ANO  DETER- 
C    MINE  WHAT  STATE  THE  SYSTEM  WAS  IN  WHEN  THE  HALF  HOUR 
C    ENDED. 
C 

IF  ISTATUSIK)  .EQ.  "OFF')  THEN 

TIK^TAMe-ALPHA/eETA-MTIK-n+ALPHA/BPTA-TA^ia 

*  *EXPI-BETA    <■     U*INTLENI    -    CTDAYIK-l))) 
PREVST='ON* 

ELSE 

T(  K)  =  TAMB+IT(K-1  I-TAM3  )«EXP(  -aETA*l  I^INTLE'J- 

*  CTDAYIK-l))l 
PRFVST='OFF' 

ENOIF 
GO    TO    100 
C 
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C    SECTION  110  HANDLES  THE  CASE  WHERE  THE  A/C  DOES  NOT 

C    PROVIDE  ENOUGH  COOLING  TC  FORCE  THE  SYSTEM  OOWN  TO  TOFF 

C    AND  THE  AMBIENT  TEMPERATURE  IS  HIGH  ENOUGH  TO  CAUSE 

C    THE  SYSTEM  TO  HEAT  UP. 

C 

110       IF  CPREVST  .EO.  •OFF*  .AND.  TlK+1)  .LT.  TON)  THEN 

K=K+l 

CTDAY(K)=CTDAY(X-l)-(l/9ETA)-l'L0GI  (T0N-TAM3)/ 

*  <T«K-1)-TAMB) I 
T(KI  =  TON 
STATUS«K)='ON' 

IF  CCTDAY(K)  .GT.  I*INTLEN)  THEN 

T(K)  =  TAMB  +  (T(K-l)-TAMB)<'EXP(-3ETA*INTLEN) 
PREVST='OFF' 
GO  TO  100 
ENOIF 
ELSE 

K=K+l 

CTOAY(K)=<I-1)*INTLEN+LCON 
STATUS(K)='ON' 
ENOIF 
K  =  K+1 
T(KI=TAMB-ALPHA/BETA+( TIK-l >+ ALPHA/PET A-TAMB) *EXP 

*  1-BETA    *    JI«INTLEN    -    CT0AYCK-U1J 
PREVST=,ON« 

C 

C    CONTROL  IS  TRANSFERRED  TC  THE  END  CF  LOOP  100  TO  START 

C    THE  NEXT  HALF-HOUR  PERIOC. 

C 

GO  TO  100 
C 

C    SECTION  120  HANDLES  THE  EXTREME  CASE  WHERE  THE  ANBIFNT 
C    TEMPERATURE  IS  NOT  HIGH  ENOUGH  TO  PRODUCE  HEATING  PUT 
C    THE  A/C  IS  SUFFICIENT  TO  PRODUCE  A  DROP  IN  TEMPERATURE. 
C 
120       IF  (PREVST  .EQ.  'ON'  .AND.  T(K+1)  .GT.  TOFF)  THEN 

K=K+1 

CTDAYJK)=I I-1)*INTLEN    ♦    LCON 

STATUS(K)='CN' 

K=K  +  1 

CTDAY(K)=CTOAY(K-l)-(l/BETA>«LOG((TOFF+ 

*  ALPHA/3ETA-TAM6)/(T<K-1)+ALPHA/3ETA-TA«S> ) 
TCK)=TOFF 

STATUS(K)="OFF" 

IF     (CTDAYIK)     .GT.    T*IMTLtN)    THEN 

T(K)=TAM3-ALPHA/3ETA+(T»K-1)+ALPHA/3ETA- 

*  TAM9)OEXP(-3ETA'S(I«INTLEN    -    CTDAY(K-lll) 
PREVST=«ON' 

GO    TO    100 
E.NDIF 
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ENDIF 
K=K+1 

TIK)  =  TAHB  +  IT{K-ll-TAM3)*eXPr-3ETA*(r«1INTLEN- 
■»       CTDAY(K-l))) 

PREVST='UFF' 
C 

C    CONTROL  IS  TRANSFERRED  TO  THE  END  OF  LOOP  100  TO  START 
C    THE  NEXT  HALF-HOUR  PERIOD. 
C 

60  TO  100 
C 

C    SECTION  130  HANDLES  THE  EXTREME  CASE  WHERE  THE  AMBIENT 
C    TEMPERATURE  IS  NOT  SUFFICIENT  TO  PROOUCE  HEATING  AND 
C    THE  A/C  IS  NOT  SUFFICIENT  TO  PRODUCE  COOLING.  IT  IS 
C    ASSUMED  THAT  THE  A/C  STAYS  OFF  BECAUSE  CONDITIONS  ARE 
C    SUCH  THAT  THE  HOUSE  WILL  REMAIN  BELOW  TON. 
C 
130       K=K+1 

CTDAY(K)=CT0AY(K-1)  +  INTLEN 

STATUS(KI='OFF« 

T(K)=TAMS-HTIK-1)-TAM8)*EXP(-BETA9INTLFN) 
100    CONTINUE 
RETURN 

END 
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•  THIS  IS  THE  CONSTANT  DRIVING  TEMPERATURE  VERSION  OF 
9  NEOCON. 

35»911i)4»?t0«.;*<i^i>*.J«5«i?!:0«0il!)(,S:)s<::jft1;:J:(i«:;(:sa<,<,(,4i,)!,ftS.ts(r(„j,j 

•  SUBROUTINE  NEOCON  DETERMINES  THE  TRANSITION  TIMES  FOR 
9  THE  CONTROLLED  CASE  WHERE  7.5  MINUTES  OF  RUNNING  TIME 
9  ARE  TAKEN  AWAY  FROM  EACH  30  MINUTES  OF  RUNNING  TIME. 

9 

9 

SUBROUTINE  NEOCON! ALPH A, 3ETA ,T, STATE, TON , TOFF t J ,TDAY , 

•  TRANS, TEMP, NUMHRS, TAMB,TIMEO,DSEED) 

9 

9 

9  ARGUMENT  EXPLANATIONS: 

•  ALPHA  -  COOLING  COEFFICIENT  WITH  A/C  ON  (DEGF/MIN). 

•  (INPUT) 

•  BETA  -  HEATING  COEFFICIENT  (1/MIN).  (INPUT 

9  T  -  INITIAL  TEMPERATURE  OF  THE  SYSTEM.  (INPUT) 

9  STATE  -  INITIAL  STATE  (ON/OFF)  OF  THE  A/C.  (INPUT! 

"  TUN  -  TEMPERATURE  AT  WHICH  THE  A/C  TURNS  ON.  (INPUT) 

9  TOFF  -  TEMPERATURE  AT  WHICH  THE  A/C  TURNS  OFF. 

9  (INPUT) 

9  J  -  THE  NUM3ER  OF  ON/GFF  TRANSITIONS  MACE  IN  A 

9  PERIOD  OF  SPECIFIED  LENGTH.  (OUTPUT) 

9  TDAY  -  VECTOR  OF  LENGTH  J  WHICH  CONTAINS  TRANSITION 

9  TIMES  IN  MINUTES)  FOR  THE  PERIOD  OF  SPECIFIED 

9  LENGTH.  (OUTPUT) 

9  TRANS  -  VECTOR  OF  LENGTH  J  WHICH  CONTAINS  THE  STATE 

9  (ON/OFF)  OF  THE  SYSTEM  AFTER  THE  CORRESPONDING 

9  TRANSITION  IN  TDAY.  (OUTPUT) 

9  TEMP  -  A  VECTOR  THAT  GIVES  THE  TEMPERATURE  OF  THE 

0  SYSTEM  AT  EACH  TRANSITION.  (OUTPUT) 

9  NUMHRS  -  NUMBER  OF  HOURS  FOR  WHICH  TRANSITIONS  ARE 

9  DESIRED.  (INPUT) 

9  TIMED  -  INITIAL  TIME  FOR  TRANSITIONS.  (INPUT) 

9  TAMB  -  DRIVING  TEMPERATURE.  (OUTPUT) 

9  OSEEO  -  SEED  NUMBER  FCR  GENERATING  RANDOM  AMOUNTS  OF 

•  INITIAL  TIME.  (INPUT) 

^i5Off<.»0^999999C0^*»i>o«T<i^C'«9«99>>>S999**:l:9999i:i9»S9«9>>««9«999'?<.0 


REAL  ALPHA,BETA,T,TDAY(9) , TON, TOFF, TEMP ( 9 ) ,TAMB, 
9      NUMHRS, TPEAK,TIMEC,TIQN,R(2) 
DOUBLE  PRECISION  OSEED 
INTEGER  J 
CHARACTER9(9)  STATE , TRANS (9 ) 

9 
9 
0999W99«"5-S999SO$.?>>.><.$0«SS>»9«»S*90*9W9e<.«=WOSC099999*«99<;:  (,,)$ 
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*  VARIABLE  EXPLANATION: 

*  TIQN  -  VARIABLE  USED  TG  KEEP  TRACK  OF  ON  TIME. 

*  R  -  RANDOM  NUMBER  BETWEEN  0  AND  1. 


J=l 

TEMP(J)=T 

TRANS(J)=STATE 

TDAY(J)=TIMEO 
C 

C    GENERATE  THE  AMOUNT  OF  ON  TIME  ALREAOY  ON  THF  LOAD 
C    LEVELER. 
C 

CALL  GGUBS(DSEED,1,R) 

TION=R(l)*30.0 
C 

C    THIS  IF  STATEMENT  STARTS  THE  LOOP  BY  CHECKING  IF  TH^ 
C    TIME  HAS  EXPIRED. 
C 

100    IF  (TDAY(J)  .GE.  ( 60*NUMHRS+30+TIME0) »  GC  TO  150 

C 

C    THE  NEXT  THREE  IF  STATEMENTS  CHECK  IF  THF  SYSTF"  IS  IN 

C    AN  EXTREME  SITUATION,  AND  IF  SO,  CALLS  THE  APPROPRIATE 

C    SUBROUTINE  AND  STARTS  THF  LOOP  OVFR. 

C 

IF  (ALPHA/BETA  .LE.  (TAMB-TOFF)  .AND.  TAMP 

*  .GT.  TON)  THEN 

CALL  NEGNOC (ALPHA, SETA, TON, TA MP, J, TO  AY, TRANS,  TEMP, 

*  TION) 
GO  TO  100 

ENDIF 

IF  ITAMB  .LE.  TON  .AND.  ALPHA/RFJA  .GT. 

*  (TAM8-T0FF1I  THEN 

CALL  NOHE AT (ALPHA, BETA, TOFF, TAMB, J, TDAY, TRANS, 

*  TEMPI 
GO  TO  100 

ENDIF 

IF  (ALPHA/BETA  .LE.  (TAMB-TOFF)  .AND.  TAM0  .LE.  TON) 

*  THEN 

CALL  ABEXT(ALPHA,aETA,TAM8,J,T0AY,TRANS,Tt;MP) 
GO  TO  100 
ENDIF 
C 

C    THESE  STATEMENTS  DETERMINE  THE  TRANSITIONS  IF  THE 
C    SYSTEM  IS  IN  NORMAL  OPERATION. 
C 


IF  (TRANSU)  .EQ.  'ON'  I  THEM 
IF  THE  SYSTEM  IS  ON,  CHECK  TO  SEE  IF  IT  IS  TIME  TO 
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C    CONTROL  IF  SO,  TAKE  APPROPRIATE  ACTION. 
C 

IF  (TION  .LT.  7.51  THEN 

TRANS(J)=«OFF» 

TRANSI^l^'ON* 

TDAYU  +  l)  =  TDAY(J)+7.5-TI0N 

TEMP(J+l)  =  TAM9+(TEMP(J)-TAMB)'>EXP(-aETA*{7.5- 

*  TION)) 
TI0N=7.5 
J=J+1 

IF  (ALPHA/BETA  .LE.  (TAMB-TOFF))  GO  TO  100 
ENOIF 
C 

C    OETERMINE  NORMAL,  UNCONTROLLED  COOLING  TRANSITIONS. 
C 

TOAYI J+1)=TDAYI Jl-I  1/3ETA  )"»LOG  (  ( TOFF+ALPHA/PETA- 
">       TAMB)/{TEMP(  J  ) +ALPHA/3ETA-TAMB  )  ) 
TRANS1J+1)='0FF» 
TEMPIJ+1)=T0FF 
TION=TION+T0AY( J+1I-T0AYI J) 
J  =  J  +  l 
C 

C    CHECK  IF  THE  LAST  TRANSITION  EXCEEDED  THE  NEED  FCR 
C    CONTROLt  CORRECT  FOR  THE  START  OF  CONTROL,  AND  PROCEEn 
C    TO  CONTROL  STATEMENTS. 
C 

IF  ITION  .GE.  30.0)  THEN 

TDAYI J)=TOAY( J >- ( TI ON-30.0 ) 

TRANS( J)='ON' 

TEMP<J)=TAMB-ALPFA/3ETA+ITEMP(J-l)+4LPHA/flETA 

*  -TAM9)*>EXP(-abTA*(TDAY< J)-TDAY1 J-l) ) ) 
IF  (TDAY(J)  .GT.  ( 60*NUMHRS+30+TIME0 ) ) 

"  GO  TO  150 

TION=0.0 
GO  TO  100 
ENDIF 
ELSE 
C 

C    OETERMINE  NORMAL  HEATING  PHASE  TRANSITIONS. 
C 

TDAYt  J  +  l)=TOAY(  J)-{  l/BETA  )*LOG  i  1  TCN-TA,«°  )  /(  TEMPI  J  1 

*  -TA-31) 
TRANSI^l^'ON* 
TEMPI J+1)=T0N 
J=J+1 

fcNDIF 
C 

C    THIS  STATEMENT  STARTS  THE  LOOP  OVER  AGAIN 
C 

GO  TO  100 
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150         RETURN 
END 
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*  THIS  VERSION  IS  USED  WITH  CONSTANT  ORIVING  TEMPERATURE. 
o 

*  SUBROUTINE  NOCOOL  DEALS  WITH  THE  EXTREME  CASE  WHERE 

*  THE  AMBIENT  TEMPERATURE  IS  SUFFICIENT  TO  PRODUCE  HEAT- 
«>  ING  AT  THE  DESIRED  INDOOR  TEMPERATURE  BUT  THE  A/C  IS 

*  NOT  SUFFICIENT  TO  PRODUCE  COOLING. 

0  c  Vf%  ?(■«»  «<:•>  !>=>  <i5««  *--><.:>  St  5.  :><*  s»  *i  :>»  O  <t=S  <■  «i  ■>■;  1?  i>  <■  SS3«»54!"  »«44S  «4  « 

9 

■? 

SUBROUTINE  NOCOOL ( ALPHA t BETA .TON ,TAMBt J ,T0AY , TRANS 

•  TEMP) 

*  ARGUMENT  EXPLANATIONS: 

*  ALPHA  -  CUULING  COEFFICIENT  WITH  A/C  ON  (DEGF/MI>4). 

*  (INPUT) 

*  BETA  -  HEATING  COEFFICIENT  (l/MIN).  (INPUT) 

*  TON  -  TEMPERATURE  AT  WHICH  THE  A/C  TURNS  ON.  (INPUT) 

*  TAMB  -  ORIVING  TEMPERATURE  FROM  OUTSIOE  THE  SYSTEM. 
■»  (INPUT) 

•>  J  -  THE  NUMBER  OF  ON/OFF  TRANSITIONS  MADE  IN  A  SPEC- 

*  IFIED  PERIOD.  (INPUT/OUTPUT) 

0  TUAY  -  VECTOR  OF  LENGTH  J  WHICH  CONTAINS  TRANSITION 

*  TIMES  (IN  MINUTES)  FOR  THE  11-HOUR  PERIOD. 

*  (INPUT/OUTPUT) 

*  TRANS  -  VECTOR  OF  LENGTH  J  WHICH  CONTAINS  THE  STATE 

*  (ON/OFF)  OF  THE  SYSTEM  AFTER  THE  CORRESPQMJ- 

*  ING  TRANSITION  IN  TDAY.  (OUTPUT/OUTPUT  I 

*  TEMP  -  A  VECTOR  THAT  GIVES  THE  TEMPERATURE  OF  THE 

*  SYSTEM  AT  EACH  TRANSITION.  (INPUT/OUTPUT) 

i)«i}ev'»iJ9*>>»440»««i)t)i)ij*<.«,,>(,||cl»!j^1)4(:i)<.I)tsoM0,M<,<.os<.<,4((]4 

REAL  ALPHAt3ETA,TDAY(*),T0N,TFMP(*),TAMB 
INTEGER  J 

CHARACTER*!*)  TRANSI*) 
WRITE  (6t*l  'WEN  INTO  NOCOOL* 
C 

1  THIS  IF  STATEMENT  TAKES  CARE  OF  THE  CASE  WHERE  THE  A/C 
C    IS  INITIALLY  OFF. 

C  . 

IF  (TRANS(J)  .EQ.  'OFF')  THEN 
J=J+1 
TCAY(J)=TDAY(J-l)-<  l/5ETA)*LCG( (TON-TAM"!/ 

•  (TEMP(  J-D-TAMB)  ) 
TEMPI J)=TON 
TRANS(J)=«ON« 

FNOIF 
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c 

C  THE  A/C  IS  ASSUMED  TO  RUN  ALL  OF  THE  TIME.  THIS  SECTION 

C  MAKES  THE  NECESSARY  STATUS  UPDATES  AT  THE  END  OF  EACH 

C  HALF  HOUR.  THEN  CONTROL  IS  RETURNED  TO  THE  MAIN  PROGRAM 

C  TO  SEE  IF  THE  CONDITIONS  HAVE  CHANGED. 
C 

TOAY(J)=TOAY(J-1>+30 

TEMPIJ)=TAM8-ALPHA/BETA+(TEMP(J-l)+ALPHA/3ETA-TAM3)* 
•    EXPI-BETA<-30) 
TRANS(J)='ON' 
RETURN 
END 
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o  THIS  IS  THE  CONSTANT  ORIVING  TEMP.  VERSION  OF  NEONOC. 
o 

*  SUBROUTINE  NEONOC  DEALS  KITH  THE  EXTREME  CASE  WHERE 

*  THE  AMBIENT  TEMPERATURE  IS  SUFFICIENT  TO  PROOUCE  HEAT- 

*  ING  AT  THE  DESIRED  INOOOR  TEMPERATURE  BUT  THE  A/C  IS 

*  NOT  SUFFICIENT  TO  PRODUCE  COOLING. 

SUBROUTINE  NEONOC( ALPHA, BETA, TON .TAMBt J. TDAY , TRANS , 
*  TEMP,TION> 

o 

9 

o  ARGUMENT  EXPLANATIONS: 

«  ALPHA  -  COOLING  COEFFICIENT  WITH  A/C  ON  IOEGF/MIN). 

*  (INPUT) 

*  BETA  -  HEATING  COEFFICIENT  (1/MIN).  (INPUT) 

*  TON  -  TEMPERATURE -AT  WHICH  THE  A/C  TURNS  ON.  (INPUT) 

*  TAMB  -  DRIVING  TEMPERATURE  FROM  OUTSIDE  THE  SYSTEM. 

*  (INPUT) 

"  J  -  THE  NUMBER  OF  ON/CFF  TRANSITIONS  MADE  IN  A  SPEC 

*  IFIED  PERIOO.  (INPUT/OUTPUT) 

*  TDAY    -    VECTOR    OF    LENGTH    J    WHICH    CONTAINS    TRANSITION 
"  TIMES    (IN    MINUTES)    FOR    THE    11-HOUR    PERIOD. 

*  (INPUT/OUTPUT) 

»  TRANS  -  VECTOR  OF  LENGTH  J  WHICH  CONTAINS  THE  STATE 

"  (ON/OFF)  OF  THE  SYSTEM  AFTER  THE  CORRES- 

*  PONDING  TRANSITION  IN  TDAY.  ( OUTPUT/OUTPUT  I 

*  TEMP  -  A  VECTOR  THAT  GIVES  THE  TEMPERATURE  OF  THE 

*  SYSTEM  AT  EACH  TRANSITION.  (INPUT/OUTPUT) 

*  TION  -  VARIABLE  TO  KEEP  TRACK  OF  ON  TIME. 

*  (INPUT/OUTPUT) 

*  TPEAK  -  PEAK  TEMPERATURE  OF  THE  DAY.  (INPUT) 

0O»»«»?»«4«««W^<,(,i)^M4<,M41)<,?,9l!.<1:>s4Mlj!)<,j|<,<l44»<1<|(.<IMlil,.l||(T 


REAL  ALPHA, BET  A,  TDAY  («■),  TON,  TEMP  (S),TAMB,TION 
INTEGER  J 

CHARACTER-*!* )  TRANSO) 
C 

C    THIS  IF  STATEMENT  TAKES  CARE  OF  THE  CASE  WHFRF  THC  A/C 
C    IS  INITIALLY  OFF. 
C 

IF  (TRANS(J)  ,EO.  'OFF')  THEN 
J  =  J*l 

TOAY( J)=TOAY( J-l)-( 1/PETA )*LOG( ITON-TAMS)/ 
*  (TEMP(J-l)-TAM?) ) 

TEMPI J)=TON 

M-34 


TRANS!  Jt^ON* 
ENUIF 
C 

C    THE  A/C  IS  ASSUMED  TO  RUN  ALL  OF  THE  TIME.  THIS  SECTION 
C    MAKES  THE  NECESSARY  STATUS  UPOATES  AT  THE  END  OF  EACH 
C    HALF  HOUR.  THEN  CONTROL  IS  RETURNED  TO  THE  MAIN  PROGRAM 
C    TO  SEE  IF  THE  CONDITIONS  HAVE  CHANGED. 
C 

IF  (TION  .LT.  7.5)  THEN 

TRANSI J)=,OFF» 

TRANSIJ+l)=,ON* 

TDAYC J+l)=TDAYIJ)+7.5-TION 

TEMPI J+l)=TAMB+(TEMP(J)-TAMfl(*EXP(-3ETA*<7.5-TION 

*  )  ) 
TION=7.5 
J=J+1 

ENDIF 

J=J+1 

TDAY(J1=TDAY<J-l»+30-TI0N 

TEMP  [J  )  =  TAM8-ALPHA/BETA-M  TEMPI  J-  1 1  +  ALPHA/B  ETA- 

*  TAM8I*EXP(-BETA*(30-TI0N) ) 
TRANSIJI^ON* 

TIUN=0.0 

RETURN 

END 
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-J 
■J 

•  SUBROUTINE  NOCOOL  DEALS  WITH  THE  EXTREME  CASE  WHERE 

»    THE  AMBIENT  TEMPERATURE  IS  SUFFICIENT  TO  PRODUCE  HEAT- 

•  ING  AT  THE  DESIRED  INDOOR  TEMPERATURE  BUT  THE  A/C  IS 
«    NOT  SUFFICIENT  TO  PROOUCE  COOLING. 

o 

SUBROUTINE  NOCOOL ( ALPHA, BETA ,TQN,TAM8 t J ,TDAYf TRANS 

•  .TEMP) 

* 

O  ARGUMENT  EXPLANATIONS: 

»       ALPHA  -  COOLING  COEFFICIENT  WITH  A/C  ON  (OEGF/MIN). 

•  (INPUT) 

■>       3ETA  -  HEATING  COEFFICIENT  (1/MINI.  (INPUT) 

•  TUN  -  TEMPERATURE  AT  WHICH  THE  A/C  TURNS  ON. 

•  (INPUT) 

•  TAMB  -  DRIVING  TEMPERATURE  FROM  OUTSIDE  THE  SYSTE«. 

•  (INPUT) 

«       J  -  THE  NUMBER  OF  ON/OFF  TRANSITIONS  MAOE  IN  A  SPEC- 

•  IFIED  PERIOD.  (INPUT/OUTPUT) 

«       TDAY  -  VECTOR  OF  LENGTH  J  WHICH  CONTAINS  TRANSITION 

•  TIMES  (IN  MINUTES)  FOR  THE  PERIOD. 

•  (INPUT/OUTPUT) 

•  TRANS  -  VECTOR  CF  LENGTH  J  WHICH  CONTAINS  THE  STATE 

•  (ON/OFF)  OF  THE  SYSTEM  AFTER  THE  CORRESPOND- 

•  ING  TRANSITION  IN  TDAY.  (INPUT/OUTPUT) 

•  TEMP  -  A  VECTOR  THAT  GIVES  THE  TEMPERATURE  CF  THE 

•  SYSTEM  AT  EACH  TRANSITION.  (INPUT/OUTPUT) 

REAL  ALPHA,BETA,TOAYe*),TON,TEMP(*),TAMe 

INTEGER  J 

CHARACTER*!*)  TRANSC?) 
C 

C    THIS  IF  STATEMENT  TAKES  CARE  OF  THE  CASE  WHERE  TH?  A/C 
C    IS  INITIALLY  OFF. 
C 

IF  (TRANS(J)  .EQ.  'OFF')  THEN 
J=J  +  1 
TDAY(  J)=TDAY(  J-l)-(  1/BETA  )<-LOG(  (TON-TAMB) 

*  /(TEMP(J-l)-TAMB)) 
TEMP( J)=TON 
TRANSIJI^'QN' 

ENDIF 
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c 

C    THE  A/C  IS  ASSUMED  TO  RUN  ALL  OF  THE  TIME.  THIS  SECTION 
C    MAKES  THE  NECESSARY  STATUS  UPDATES  AT  THE  END  OF  EACH 
C    HALF  HOUR.  THEN  CONTROL  IS  RETURNED  TO  THE  MAIN  PROGRAM 
C    TO  SEE  IF  THE  CONDITIONS  HAVE  CHANGED. 
C 

J=J+1 

TOAYt J)=TDAY(J-ll+30 

TEMPtJ)=TAMB-ALPHA/BETA+(TEMP» J-D+ALPHA/BETA- 
*         TAMBJ*EXP(-BETA*30) 

TRANS(J)=,ON' 

RETURN 

END 
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0 

*  THIS  IS  THE  FINAL  CONSTANT  DRIVING  TEMF  VERSION  OF  NAVG. 

«  SUBROUTINE  NAVG  TAKES  THE  ARRAYS  OF  TRANSITION  TIMES, 

*  STATESt  AND  TEMPERATURES  AND  RETURNS  THE  AVERAGE  POWER 

*  AND  THE  AVERAGE  TEMPERATURE  FOR  EACH  N-MINUTE  PERIOD. 

*  THIS  IS  DONE  FOR  A  TOTAL  OF  10  HOURS. 

<■ 
* 

SUBROUTINE  NAVG  I TDAY, TRANS, TEMP ,NUM, ALPHA, BETA, Nr 

•  PWR,TEMPAV,TAMB) 

o 

*  ARGUMENT  EXPLANATIONS: 

*  TDAY  -  A  VECTOR  CONTAINING  TRANSITION  TIMES  (IN 
"  MINUTES).  IT  MUST  CONTAIN  AT  LEAST  ONE 

*  TRANSITION  PAST  10  HOURS.  (INPUT) 

»  TRANS  -  A  VECTOR  OF  THE  SAME  LENGTH  AS  TDAY  WHICH 

*  CONTAINS  THE  STATE  (ON/OFF)  OF  THE  SYSTEM 

*  AFTER  EACH  CORRESPONDING  TRANSITION.  (INPUT) 
■>  TEMP  -  A  VECTOR  CONTAINING  THE  TRANSITION  TEMP- 

•>  ERATURES.  (INPUT) 

•>  NUM  -  THE  NUMBER  OF  ENTRIES  INTO  VECTORS  TOAY  AND 

*  TRANS.  (INPUT) 

«       ALPHA  -  COOLING  COEFFICIENT  (DEGF/MIN).  (INPUT) 

*  BETA  -  HEATING  COEFFICIENT  (1/MIN).  (INPUT) 

*  N  -  THE  LENGTH  (IN  MINUTES)  OF  THE  INTERVAL  OF 

*  INTEREST.  EXAMPLE:  N=5  TO  DETERMINE  AVERAGE 

*  POWER  FOR  EACH  N-MINUTE  PERIOD.  (INPUT) 

*  PWR  -  A  VECTOR  WHICH  CONTAINS  THE  FRACTIONAL  AMOUNT 

*  OF  TIME  DURING  EACH  N-MINUTE  INTERVAL  WHICH 
"  THE  A/C  IS  ON  ( l=N  MINUTES;  0=0  MINUTES). 

*  LENGTH  IS  600/N.  (OUTPUT) 

*  TEMPAV  -  A  VECTOR  WHICH  CONTAINS  THE  AVERAGE  TEMP- 

*  ERATURE  FOR  EACH  N-MINUTE  INTERVAL. 

*  (OUTPUT) 

o 

REAL  TDAY  I*)  ,  PWR  (=>  )  ,PTCAY  (  600  I  ,  ALPHA, BETA, TEMP (*) , 

*  TEMPAV(O),AVE,TAME,N,I,T{600) 
CHAPACTER-M*)  TRANSIT) 
CHARACTERS  STATE 

INTEGER  J, K, NUM, LOOP 


•    VARIABLE  EXPLANATION: 


M-3£ 


*  STATE  -  VARIABLE  TO  KEEP  TRACK  OF  CURRENT  STATE  OF 
"  THE  SYSTEM  AS  THE  SUBROUTINE  GOES  THRCUGH 
o                                        THE  TRANSTIONS  IN  THE  10-HOUR  PERIOD. 

*  J  -  VARIABLE  TO  COUNT  WHICH  TRANSITION  AND  STATE  OF 
"  TOAY  AND  ARE  OF  CURRENT  INTEREST  TO  SUBROUTINE. 
»  (INPUT) 

»  PTOAY  -  ARRAY  USED  TO  STORE  VALUES  FROM  TOAY  TO 

*  DETERMINE  THE  OESIRED  FOR  PWR. 

o  TAMB  -  EXTERIOR  TEMPERATURE  DRIVING  FORCE. 

■»  AVE  -  INTERMEDIATE  VARIABLE  FOR  DETERMINING  THE 

"  AVERAGE  TEMPERATURE  IN  EACH  N-MINUTE  INTERVAL. 

"  I  -  VARIABLE  TO  KEEP  TRACK  OF  THE  CURRENT  INTERVAL 

o  OF  TIME. 

>> 

V 

DO  100  L00P=1,600/N 
PWRIL0CPI=O 
TEMPAV(LOOP1=0 
100    CONTINUE 

DO  150  L00P=1»NUM 

PTDAY 1  LOOP )=T DAY (LOCP) 
T(LOOP)=TEMP(LOOP) 
150    CONTINUE 

J=l 

STATE=TRANS( Jl 
C 

C    EACH  LOOP  OF  DO  LOCP  200  REPRESENTS  ONE  N-MINUTE 
C    INTERVAL. 
C 

I  =  N 

K  =  1 
ZOO    IF  (I  .LE.  600.0)  THEN 
C 

C    IF  STATEMENT  500  STARTS  THE  NEXT  N-MINUTE  INTERVAL 
C    IF  THE  CURRENT  TRANSITION  IS  ESSENTIALLY  AT  THE  END  OF 
C    THE  CURRENT  INTERVAL. 
C 

500        IF  ( ( I-PTDAY(J) )  .LT.  0.1E-70)  GO  TO  190 
C 

C    THE  FOLLOWING  IF  STATEMENT  SORTS  THE  TRANSITIONS 
C    ACCURDING  TO  WHETHER  THE  HEATING  OR  COOLING  MCDFL  IS 
C    APPROPRIATE. 
C 

IF  ISTATE  .EQ.  "ON')  THEN 
C 

C    THIS  IF  STATEMENT  DETERMINES  THE  APPROPRIATE  TIME 
C    PEERIOO  TO  CONSIDER  DETERMINED  SY  THE  TIME  OF  THE  Nf-XT 
C    TRANSITION.  IF  THE  TRANSITION  IS  °AST  THE  ENC  OF  THJ 
C    CURRENT  N-MINUTE  NTEPVAL  THEN  THE  TIMEPFRIOO  USSO  [S 
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C    TO  THE  END  OF  THE  CURRENT  N-MINUTE  INTERVAL. 
C 

IF  (PTDAYIJ+1)  .GT.  I)  THEN 

PWR1K)=PWRIX)+(I-PTDAY(J) ) /N 

AVE=TAMB-ALPHA/3ETA-{  (T  (  J  )  *ALPHA/3ETA-TAMi?  J 

*  /(BETA*(I-PTDAY(  J)  )  1  )<S(  EXPI  -SETA* 

*  (I-PTDAY(J)) )-l) 
TEMPAV(K)=TEMPAV{K)+AVE*( I-PTDAY(J) ) 
T(J)=TA«a-ALPHA/aETA  +  (T(J)+ALPHA/3ETA-TA,Mi) 

*  *EXP(-BETA*(I-PTDAY( J) )) 
PTDAYI JI=I 

ELSE 

PWR(K)=PWRIK)+(PTDAY(J+1)-PTDAY( J)l/N 
AVE=TAM8-ALPHA/3ETA-((T(J)+ALPHA/SETA-TAM8)/ 
(3ETA->»PTOAY(J  +  l)-PTnAY(J))))*(EXP(-BETA* 

*  (PTDAYU  +  l  1-PTDAY1J)  ))-l) 
TEMPAV(K)=TEMPAV(K)+AVE*(PTDAY(J+D- 

*  PTDAYIJ)) 
J=J  +  1 

STATE=TRANS(J ) 
GO  TO  500 

END  IF 
ELSE 
C 

C    THIS  IF  STATEMENT  IS  ANALAGOUS  TO  THE  PREVIOUS  IF 
C    STATEMENT  EXCEPT  THE  A/C  IS  CURRENTLY  OFF. 
C 

IF  (PTDAYf  J-fl)  .GT.  I)  THEN 

AVE=TAMB-I(T(  J 1-TAM8 )/ (  BETA*  ( I-PTDAY  (  J  )  ]  I  ) 

*  *EXP(-3ETA*( I-PTHAYI J) ) )-ll 
TE«PAV(K)=TEMPAVC<I+AVE*1I-PTDAY( J) ) 

T(J)=TA«B+(T[  J)-TA.Me)*EXP(-aETA*{I-PTCAv(J) 

*  )) 
PTDAYI J )=I 

ELSE 

AV£  =  TAM8-t(Tf  J)-TA,M8>/tBETA«IPTDAY(  J+l)- 
PTDAY(J)  ))  l«(EXP(-EETA=?(PTDAY(J  +  l)- 

*  PTDAYIJ) J)-ll 

TEMPAVIX)=TEMPAVIK)+AVE*(PTDAYI J+L)-PTDAYIJ) 

*  ) 
J=J  +  1 

STATE=TRANS(J) 
GO  TO  500 

ENOIF 
END  IF 
190       TEHPAVIK)=TEMPAVIK)/N 
K  =  K+l 
I  =  I+N 
GO  TO  200 
ENDIF 
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RtTURN 
END 


M-41 


Subroutines  Duncon,  Dnavg,  and  Dvepwr  are  versions  of 
Uncon,  Navg,  and  Avepwr  to  be  used  when  the  length  of  the 
time  period  is  30  hours. 
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«  THIS  IS  A  VERSION  OF  UNCON  ALTERED  FOR  A  LENGTH  OF  31 

•  HOURS. 

■>o  tswnt.xw>o*?ntr';'>i«-'iiw<i-*t!?- « >>«<i«s*ii  «*<■*==»  fv'jo  !;.=»>;«<■*  a*  OS**  •*»■:<*=:: 

•  SUBROUTINE  UNCON  DETERMINES  THE  TRANSITION  TIMES  FOR 
■»    THE  UNCONTROLLED  CASE.  THE  RESULTING  TRANSITION  TIMES 

•  ARE  RETURNED  IN  TOAY  WHICH  IS  A  600  MEMBER  ARRAY.  TRANS 
o         RETURNS  THE  STATE  THAT  ThE  SYSTEM  GOES  TO  WHEN  THE 

•  TRANSITION  IS  MADE. 


SUBROUTINE  DUNCON  ( ALPHAt 3ETA , T, STATE , TON tTOFF t J t 
»  TDAY, TRANS, TEMP) 


*  ARGUMENT  EXPLANATIONS: 

*  ALPHA  -  RATE  AT  WHICH  SYSTEM  COOLS  WITH  A/C  ON 

*  (DEGF/MIN).  (INPUT) 

*  BETA  -  RATE  AT  WHICH  SYSTEM  HEATS  UP  WITH  A/C  OFF 

*  (DEGF/MIN).  (INPUT) 

*  T  -  INITIAL  TEMPERATURE  OF  THE  SYSTEM.  (INPUT) 

»  STATE  -  INITIAL  STATE  (ON/OFF)  OF  THE  A/C.  (INPUT) 

*  TON  -  TEMPERATURE  AT  WHICH  THE  A/C  TURNS  ON.  (INPUT) 

*  TOFF  -  TEMPERATURE  AT  WHICH  THE  A/C  TURNS  OFF. 

*  (INPUT) 

*  J  -  THE  NUMBER  OF  ON/CFF  TRANSITIONS  MADE  IN  THE  30- 
"  HOUR  PERIOD.  (OUTPUT) 

<■  TDAY  -  VECTOR  OF  LENGTH  J  WHICH  CONTAINS  TRANSITION 

*  TIMES  (IN  MINUTES)  FOR  THE  ll-HOUR  PERIOO. 

*  (OUTPUT) 

*  TRANS  -  VECTOR  OF  LENGTH  J  WHICH  CONTAINS  THE  STATE 

*  (ON/OFF)  OF  THE  SYSTEM  AFTER  THE  CORRESPOND- 

*  ING  TRANSITION  IN  TDAY.  (OUTPUT) 

*  TEMP  -  A  VECTOR  THAT  GIVES  THE  TEMPERATURE  OF  THE 

*  SYSTEM  AT  EACH  TRANSITION. 

»»<"">  •  *****  <*<=<*«  <"C"«*  !><■>>  =S  »*■>«<!  s>  ■>«*:>*$=:■  =5  SS«r>«#-:3.  £  <■«*<.<■  ?,:  i:  ■:■.  ?j  ,;,  0440  6 

REAL  ALPHAf 9ET AtT tTDAY (« >, TON, TOFF, TEMP( * ) , TAMfi 

INTEGER  J 

CHARACTER^*)  STA  IE  ,  TRANS  I* ) 


*  VARIABLE  EXPLANATION: 

•  TAM8  -  DRIVING  TEMPERATURE  FROM  OUTSIDE  THE  SYSTEM. 

«■«>><«>  <■*■#*<=  ■»■>**«  «(!«>«■<■  O«O««««0 1>  <iA!>i,*^i!>tX! «»  <,0«i  <K=iSi>«i!,!«S.>«<!j:;i>  tflt  O 
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J=l 

TfcMPU)=T 

TRANS(J)=STATE 

TOAYI J  1=0 

CALL  ORIVE(TAMB) 
C 

C    THE  NEXT  THREE  STATEMENTS  CHECK  IF  THE  SYSTEM  [S  IN  AN 
C    EXTREME  SITUATION,  AND  IF  S0»  SENDS  CONTROL  TO  THE 
C    SECTION  THAT  DEALS  WITH  THE  PARTICULAR  EXTREME. 
C 
100    IF  I  ALPHA/BETA  .LE.  (TAMB-TOFF)  .AND.  TAM9  .GT.  TON! 

*  GO  TO  110 

IF  (TAM8  .LE.  TON  .AND.  ALPHA/BETA  .GT.  (TAMB-TOFF)) 
o         GO  TO  120 
IF  (ALPHA/BETA  .LE.  (TAM"-TOFF»  .AND.  TAM3  .LE.  TON) 

*  GO  TO  130 
C 

C    THESE  STATEMENTS  DETERMINE  THE  TRANSITIONS  IF  THE  SYS- 
C    TEM  IS  IN  NORMAL  OPERATION.  IF  THE  SYSTEM  IS  ON,  THE 
C    NEXT  TRANSITION  IS  DETERMINED  USING  THE  COOLING  MOCEL. 
C    IF  THE  SYSTEM  IS  OFF,  THE  NEXT  TRANSITION  IS  DETERMINED 
C    BY  THE  HEATING  MODEL. 
C 

IF  ITRANS(J)  .EQ.  'ON')  THEN 

TDAYI J+l)=TDAY(J)-(  1/RETA )*LOG I  I TOFF  +  ALPHA/BETA- 

*  TAMBI/I  TEMPI  J  ) +ALPHA/'?ETA-TAMB)  ) 
TRANS( J+1)=,0FF« 

TEMPI J+1)=T0FF 
J  =  J+1 
ELSE 

TOAYI J+1)=T0AYI Jl-I 1/3ETA )*LCG ( (TON-TAMB>/( TEMP IJ I 

*  -TAM3)) 
TRANS(J+1)=,0N« 
TEMPIJ+l)=TON 

J  =  J+1 
ENDIF 
GO  TO  150 
C 

C    THIS  SECTION  DEALS  WITH  THE  EXTREME  WHERE  ALPHA  IS  NOT 
C    SUFFICIENT  TO  PRODUCE  A  ORCP  IN  TEMPERATURE  AND  THE 
C    AMBIENT  TEMPERATURE  IS  SUFFICIENT  TO  PRODUCE  A  RISE  TN 
C    TEMPERATURE. 
C 
110    IF  (TRANSIJ)  .EQ.  'OFF')  THEN 

J=J  +  1 

TOAYI J)=TOAY( J-ll-I 1/BETA)«L0G( (TON-TAMB)/ 

*  (TEMPIJ-l)-TAMB) ) 
TEMPI J)=TON 
TRANS(J)=*ON» 

6N0IF 
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J=J+1 

TOAYI J)=TDAYIJ-l)+30 

TEMPIJ>=TAM3-ALPHA/SETA+(TEMPI J-l l+ALPHA/BETA-TAMB I* 
o         EXPt-BETA*30) 

TRANSIJ)='ON' 
C 

C    CONTROL  IS  TRANSFERRED  AT  THE  END  OF  30  MINUTES  TO 
C    CHECK  IF  THE  30  HOURS  HAVE  EXPIRED  AND  TO  CHECK  THE 
C    CONDITIONS  AGAIN. 
C 

GO  TO  150 
C 

C    THIS  SECTION  DEALS  WITH  THE  EXTREME  WHERE  TAM8  IS  TOO 
C    LOW  FOR  THE  HOUSE  TO  NEEO  COOLING  AND  THE  A/C  IS  SUF- 
C    FICIENT  TO  PRODUCE  COOLING. 
C 

120    IF  ITRANSUI  .EQ.  'ON' I  THEN 
J  =  J+l 
TDAY(J)  =  TDAYU-l)-( 1/BETA )*LOG C ( TOFF+ ALPHA/BET A- 

*  TAMB)/(TEMP( J-l ) +ALPHA/BET A-TAM3) ) 
TRANS(J)='OFF' 

TEMPI J)=TOFF 

ENOIF 

J=J+1 

TDAY(J)=TDAY(J-1 )+30 

TEMPI JI=TAMB+(TEMP(J-1 1-TAMB )*EXPI-BETA«3C > 

TRANS(J)='OFF« 
C 

C    CONTROL  IS  TRANSFERRED  AT  THE  END  OF  30  MINUTES  TG 
C    DETERMINE  IF  30  HOURS  HAVE  EXPIRED  AND  TO  CHECK  THE 
C    CONDITIONS  AGAIN. 
C 

GO  TO  150 
C 

C    SECTION  130  HANDLES  THE  SITUATION  WHEN  THE  AMBIENT 
C    TEMPERATURE  IS  NOT  SUFFICIENT  TO  PRODUCE  HEATING  AND 
C    THE  A/C  IS  NOT  SUFFICIENT  TO  PRODUCE  COOLING.  IT  IS 
C    ASSUMED  THAT  THE  A/C  WILL  BE  TURNED  OFF  BECAUSE  THE 
C    CONDITIONS  ARE  SUCH  THAT  A/C  IS  NOT  NEEDED. 
C 

130    IF  ITRANSIJ)  .EQ.  "ON* I  THEN 
J  =  J+1 

TDAYIJ)  =  TDAYI  J-D-t-1 
TRANSU)  =  'OFF« 

TEMP IJI  =  T AM B- ALPHA/ ?ETA+( TEMP  I J-ll  +  ALPHA/BETA- 

*  TAMBI^EXPI-SETA) 
ENDIF 

J=J+l 

TDAYIJ)=T0AYU-H  +  30 
TRANSUI^OFF' 
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TEMP ( J >=TAMB+t TEMPI J-l J-TAMB l*EXP (-BETA*30 ) 
C 

C    THIS  STATEMENT  CHECKS  IF  11  HOURS  HAVE  EXPIRED.  IF  SO, 
t    CONTROL  IS  RETURNED  TO  THE  MAIN  PROGRAM.  IF  NOT,  THE 
C    SUBROUTINE  CONTINUES  TO  LOOP  THROUGH  THE  ABOVE  STATE- 
C    MENTS. 
C 
150    IF  (TOAY(J)  ,LE.  1980)  GO  TO  100 

RETURN 

ENO 
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*  (THIS  IS  A  VERSION  OF  NAVG  THAT  HAS  BEEN  ALTERED  FOR  USE 

*  WITH  PROGRAM  NEWOIST) 

*  SUBROUTINE  NAVG  TAKES  THE  ARRAYS  OF  TRANSITION  TIMESt 

*  STATES,  ANO  TEMPERATURES  ANO  RETURNS  THE  AVERAGE  POWER 

*  AND  THE  AVERAGE  TEMPERATURE  FOR  EACH  N-MINUTE  PERIOD. 
»  THIS  IS  DONE  FOR  A  TOTAL  OF  10  HOURS. 

SUBROUTINE  DNAVG  ( TDAY , TRANS, TEMP, NUM, ALPHA, BETA, N, 

*  PWR,TEMPAV) 

*  ARGUMENT  EXPLANATIONS: 

»       TDAY  -  A  VECTOR  CONTAINING  TRANSITION  TIMES  (IN  MIN- 

*  UTES)  IT  MUST  CONTAIN  AT  LEAST  ONE  TRANSITION 

*  PAST  10  HOURS.  (INPUT) 

*  TRANS  -  A  VECTOR  OF  THE  SAME  LENGTH  AS  TDAY  WHICH 

*  CONTAINS  THE  STATE  (ON/OFF)  OF  THE  SYSTEM 

*  AFTER  EACH  CORRESPONDING  TRANSITION.  (INPUT) 

*  TEMP  -  A  VECTOR  CONTAINING  THE  TRANSITION  TEMPEPA- 

*  TURES.  (INPUT) 

*  NUM  -  THE  NUMBER  OF  ENTRIES  INTO  VECTORS  TDAY  ANO 

*  TRANS.  (INPUT) 

*  ALPHA  -  COOLING  COEFFICIENT  (OEGF/MINI.  (INPUT) 

*  BETA  -  HEATING  COEFFICIENT  (l/MIN).  (INPUT) 

*  N  -  THE  LENGTH  (IN  MINUTES)  OF  THE  INTERVAL  OF  IN- 

*  TEREST  EXAMPLE:  N=5  TO  DETERMINE  P0WE4  CONSUMP- 
"                             TION  FOR  EACH  5-MINUTE  PERIOD.  (INPUT) 

»  PWR  -  A  VECTOR  WHICH  CONTAINS  THE  FRACTIONAL  AMOUNT 

*  OF  TIME  OURING  EACH  N-MINUTE  INTERVAL  WHICH 

*  THE  A/C  IS  ON  ( l=N  MINUTES;  0=0  MINUTES). 

*  LENGTH  IS  600/N.  (OUTPUT! 

*  TEMPAV  -  A  VECTOR  WHICH  CONTAINS  THE  AVERAGE  TEHPER- 

*  ATURE  FOR  EACH  N-MINUTE  INTERVAL.  (OUTPUT) 

o 

REAL  TDAY (*),PWR(0),PTCAY( 1300 >,ALPHA,RETA,TFMP(*I, 

*  T(1800),TEMPAV(*> ,AVE,TAMB 
CHARACTER*^)  TRANSO) 
CHARACTERS  STATE 

INTEGER  J,N,NUM 
■> 

«S4«3»t«(.<.«i«,«W(,«4404<,,s<,!lC{,44w,:>])<,i;,t!j,1>l!llj,!)1J^1)|)]9|)4;)4]tl)1)|> 

*  VARIABLE  EXPLANATION: 

*  STATE  -  VARIABLE  TO  KEEP  TRACK  OF  CURRENT  STATE  OF 
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*  THE  SYSTEM  AS  THE  SUBROUTINE  GOES  THRCUGH 

•  THE  TRANSITIONS  IN  THE  10-HOUR  PERIOD. 

•  J  -  VARIABLE  TO  COUNT  WHICH  TRANSITION  AND  STATE  OF 
o  TDAY  AND  ARE  OF  CURRENT  INTEREST  TO  SUBROUTINE. 

*  PTDAY  -  ARRAY  USED  TO  STORE  VALUES  FROM  TDAY  TO 
o  DETERMINE  THE  DESIRED  FOR  PWR. 

*  TAMB  -  EXTERIOR  TEMPERATURE  DRIVING  FORCE.  OBTAINED 
«  FROM  SUBROUTINE  DRIVE. 

•  AVE  -  INTERMEDIATE  VARIABLE  FOR  DETERMINING  THE 

»  AVERAGE  TEMPERATURE  IN  EACH  N-MINUTE  INTERVAL. 

DO  100  I=lt1800/N 
PWRCI )=0 
TEMPAV(I)=0 
100    CONTINUE 

DO  150  I=lfNUM 

PTDAYI I)=TOAY(I) 
T(IJ=TEMP(IJ 
150    CONTINUE 
J=l 

STATE=TRANS( J) 
CALL  CRIVE(TAMB) 
C 

C    EACH  LOOP  OF  DO  LOOP  200  REPRESENTS  ONE  N-MINUTE 
C    INTERVAL. 
C 

DO  200  I=N,1800tN 

c 

C  IF  STATEMENT  500  STARTS  THE  NEXT  N-MINUTE  INTERVAL  IF 

C  THE  CURRENT  TRANSITION  IS  ESSENTIALLY  AT  THE  END  CF  THE 

C  CURRENT  INTERVAL. 

C 

500       IF  ( I I-PTDAYt Jl)  .LT.  0.1E-70)  GO  TO  190 

C 

C  THE  FOLLOWING  IF  STATEMENT  SORTS  THE  TRANSITIONS 

C  ACCORDING  TO  WHETHER  THE  HEATING  OR  COOLING  MODEL  IS 

C  APPROPRIATE. 

C 

IF  (STATE  .EQ.  *0N')  THEM 
C 

C  THIS  IF  STATE"ENT  DETERMINES  THE  APPROPRIATE  TIME 

C  PERIOD  TO  CONSIOER  DETERMINED  BY  THE  TIME  CF  THE  NEXT 

C  TRANSITION  IF  THE  TRANSITION  IS  PAST  THE  END  OF  THE 

C  CURRENT  N-MINUTE  INTERVAL  THEN  THE  TIME  PERIOD  USED  IS 

C  TO  THE  ENO  OF  THE  CURRENT  N-MINUTE  INTERVAL. 
C 

IF  (PTOAYM+1)  .GT.  I)  THEN 

PWR(I/NI=PWR( I/Nl+I I-PTDAYI J))/N 
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AVE  =  TAMB-  ALPHA/BETA-!  I T I J)+ALPHA/SETA-TAMB ) / 

*  I3ETA*II-PTDAY<JI I ) ) *  I  EXP  I -BETA* J  I- 

*  PTDAYIJ) )>-l) 

TEMPAVI  I/N)  =  TEMPAVII/N)+AVE«ir-PTDAY( J) 1 
TU)=TAM3-ALPHA/3ETA+ITIJ)+ALPHA/3ETA-TAM3)» 

*  EXPl-BETA*II-PTDAYIJ))) 
PTDAYIJI=I 

ELSE 

PWRII/N)=PWRI  I/N)+IPTDAYI J+l l-PTDAYl J  I >/N 
AVE=TAM3-ALPHA/3ETA-( I T I  J l+ALPHA/BETA-TAMB ) / 

*  I3ETAOIPTDAYI J+ll-PTDAYI J)  )))»(EXP(-3ETA'> 

*  (PTOAYCJ+1 )-PTOAY( J) ))-l) 

TEMP AVI I/N)=TEMPAVII/N>+AV5*IPTDAY(  J+U- 

*  PTDAYIJ)) 
J=J  +  l 

STATE=TRANSIJ) 
GO  TO  500 

ENDIF 
ELSE 
C 

C    THIS  IF  STATEMENT  IS  ANALAGOUS  TO  THE  PREVIOUS  IF 
C    STATEMENT  EXCEPT  THE  A/C  IS  CURRENTLY  OFF. 
C 

IF  IPTDAYIJ+l)  .GT.  I)  THEN 

AVE  =  TAMB-(  (T(  J  1-TAMB  )/ I  BETA<M  I-PTQAYI  J)  )))«■! 

*  EXPI-BETA*II-PTOAY(JI )  1-1J 

TEMPAVI I/N)=TEMPAV( I/N l+AVE*! I-PTDA Yl  J ) ) 
T(  J)=TAM8  +  <TI J)-TAM3)*EXP(-3ETA'MI- 

*  PTDAYIJ))) 
PTDAYIJMI 

ELSE 

AVE=TAMB-( ( T( J)-TAMai/IBETA*(PTOAY( J+ll- 

*  PTDAYIJ)  ))  )*EXP(-BETA«(PTDAY(J+l)- 

*  PTDAY(JI)l-l) 

TEMPAVI I/N)=TEMPAVII/NI+AVE*IPTOAY( J+l)- 

*  PTDAYIJ)) 
J=J  +  l 

STATE=TRANSIJ ) 
GO  TO  500 

ENDIF 
ENDIF 
190       TEMPAVI I/N)=TEMPAV< I/NI/N 
200    CUNTINUE 
RETURN 
END 
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*  THIS  IS  A  VERSION  OF  AVEPWR  ALTERED  FOR  USE  OVER  30 

*  HOURS. 

*  SUBROUTINE  AVEPWR  CALCULATES  THE  AVERAGE  POWER  CONSUMEO 

*  IN  THE  INTERVALS  OF  OESIRED  LENGTH  BY  TAKING  THE  POWER 

*  CONSUMED  IN  N-MINUTE  INTERVALS  AND  AVERAGING  THESF. 

*  FIGURES  FOR  LONGER  PERIODS  OF  TIME. 

o 

SUBROUTINE  DVEPWR { PWR, LENGTH, N t PAVG ) 
« 

*  ARGUMENTS: 

*  PWR  -  VECTOR  THAT  CONTAINS  THE  AVERAGE  POWER  FOR  THE 

*  N-MINUTE  INTERVALS. 

*  LENGTH  -  LENGTH  OF  INTERVAL  THAT  AVERAGE  POWER  IS 
«  DESIRED. 

*  N  -  LENGTH  OF  THE  INTERVAL  USED  IN  PWR. 

*  PAVG  -  VECTOR  THAT  RETURNS  DESIRED  AVERAGE  POWER  FOR 

*  THE  DESIREO  LENGTH  INTERVALS. 

o 

•> 

REAL  PWR(*I, PAVGI*) 

INTEGER  LENGTH, N, NUM, C, COUNT 

NUM=1800/LENGTH 

COUNT=LENGTH/N 

C  =  0 

00  50  1=1, NUM 
PAVGI I)=0 
50     CONTINUE 
C 

C    DO  LOOP  100  CALCULATES  THE  AVERAGE  POWER  CONSUMPTION 
C    FOR  THE  NUMBER  OF  INTERVALS  OF  DESIRED  LENGTH  IN  THE 
C    10-HOUR  PERIOO. 
C 

DO  100  1=1, NUM 
C 

C    DO  LOOP  200  CALCULATES  THE  AVERAGE  POWER  IN  EACH  OF  THE 
C    INDIVIDUAL  INTERVALS. 
C 

DO  200  K=l, COUNT 
C=tI-l)*COUNT+K 
PAVGt I)=PAVG( II+PWRIC1 
200       CONTINUE 

PAVGI I)=PAVGI D/COUNT 
100    CONTINUE 

RETURN 
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END 
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APPENDIX  M-II 


LISTINGS  OF  COMPUTER  PROGRAMS 

REQUIRING  PIECE-WISE  CONSTANT 

DRIVING  TEMPERATURE 
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«>  PROGRAM  SINETEMP  UTILIZES  SUBROUTINES  WITH  SINUSCIDALLY 

*  VARYING  DRIVING  TEMPERATURE.  IT  PRODUCES  BOTH  CON- 

*  TROLLED  AND  UNCONTROLLED  LOAD  CURVES  FOR  12  HOUR  DAYS. 

*  METHOD  OF  CONTROL  IS  CENTRALIZED. 

3 
9 

INTEGER  UNIT2,J,K,M, COUNT, CCOUNT 

REAL  ALPHA,8ETA,T,TDAY(1000) , TON, TOFF ,PWR t 200 ) , 

*  CTOAY ( 1000 >,CPWR(20C), Til 1000 ) ,USYS( 200 ), CSYS ( 200 ) 

*  , TEMP! 1000 1,C TEMP ( 1 000 ), TEMP A VI 200 ),CTEMAV< 200) , 

*  PWR2(200),TEMPA2!20  0),N,TAMBI 1000 ) ,CTAMH ( 10C0 ) , 

*  LCON, INTLEN,NUMHR1,NUMHR2,NUMHR3,PAVG(100), 

*  CPAVGC100),AVGTEM(1C0> ,CAVGTE(100) ,UTEMPA(200I 
DOUBLE  PRECISION  OSEED 

CHARACTER  ST  ATE*3,  STAR  T  11000  )->3,  TRANS  I  1000)*3, 
«    STATUS! 1000)*3 


*  VARIABLE  EXPLANATIONS: 

*  ALPHA  -  COOLING  COEFFICIENT  WITH  THE  A/C  ON. 

*  (DEGF/MINI 

*  SETA  -  HEATING  COEFFICIENT.  (l/MIN) 

*  T  -  VARIABLE  USED  TO  KEEP  TRACK  OF  TEMPERATURE. 
■»  TON  -  TEMPERATURE  AT  WHICH  THE  SYSTEM  TURNS  CM. 

*  (OEGF) 

*  TOFF    -    TEMPERATURE    AT    ViHICH    THE    SYSTEM    TURNS    OFF. 

*  (DEGF) 

*  N  -  VARIABLE  SPECIFYING  THE  LENGTH  OF  THE  PERICO  OF 

*  INTEREST  FOR  POWER  AND  ENERGY  CONSUMPTION. 

*  M  -  VARIABLE  SPECIFYING  THE  NUMBER  OF  HOUSES  USED  TO 

*  PRODUCE  A  SUMMED  LOAD  CURVE. 

*  TDAY11800),  TRANSI1300),  TEMP(1300I  -  VECTORS  FOP 

*  STORING  TRANSITION  TIMES,  STATES  (ON/CFF),  ANC 

*  TEMPERATURES  FOR  THE  UNCONTROLLED  CASE. 

*  CTDAYI18001,  STATUS! 1800) ,  CTEMPI1800)  -  VECTORS  FOR 

*  STORING  TRANSITION  TIMES,  STATES  (ON/OFF),  AND 

*  TEMPERATURES  FOR  THE  CONTROLLED  CASE. 

*  TAM3I1000),  CTAMB(IOOO)  -  VECTORS  OF  THF  DRIVING 

■»  TEMPERATURES  AT  THE  TRANSITION  TIMES  FOR  THE  RF- 

*  SPECTIVE  CASES.  (DEGF) 

PWR1200),  CPWR1200)  -  VECTORS  STORING  THE  FRACTION  TF 

*  EACH  N-MINUTE  PERIOD  IN  WHICH  THE  A/C  IS  <=QR    ROTH 

*  OF  THE  CASES. 

TEMPAVI200),  CTEMAV120C)  -  VECTORS  STORING  THE  N-MIN- 

*  UTE  TEMPERATURE  AVERAGES  FOR  BOTH  OF  THE  CASES. 
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*  UTEWPAI200)  -  VECTOR  STORING  THE  N-MINUTE  TEMPERATURE 

*  AVERAGE  FOR  THE  DAY  WITH  NO  CONTROL  PERIOD. 

*  USYS(20O),  CSYSI200J  -  VECTORS  STORING  THE  TOTAL 

*  ENERGY  CONSUMPTION  FOR  EACH  N-MINUTE  INTERVAL  FCR 

*  M  HOUSES  FOR  BOTH  CASES. 

*  LCUN  -  LENGTH  OF  THE  CONTROL  PERIOD.  (MINI 

*  INTLEN  -  LENGTH  OF  THE  INTERVAL  FOR  LCON  MINUTES  ARE 

*  CONTROLLED.  (MINI 

*  DSEED  -  SEED  NUMBER  USED  TO  GENERATE  RANDOM  NUMBERS. 

*  TKIOOOI,  START(IOOO)  -  VECTORS  THAT  STORE  THE  INI- 

*  TIAL  TEMP.  AND  STATE  FOR  EACH  OF  THE  M  HOUSES. 

*  UNIT2  -  VARIABLE  USEO  TO  ESTABLISH  AN  OUTPUT  FILE. 

*  J  -  VARIABLE  CONTAINING  THE  NUMBER  OF  TRANSITIONS 

*  IN  TDAY. 

*  K    -    VARIABLE    CONTAINING    THE    NUMBER    OF    TRANSITIONS 

*  IN    CTDAY. 

*  PAVGIIOO),  CPAVG(IOO)  -  VECTORS  CONTAINING  POWER 

*  AVERAGES  FOR  PERIODS  OF  TIME  LONGER  THAN  N- 

*  MINUTES. 

*  AVGTEMUOOl,  CAVGTE(IOO)  -  VECTORS  CONTIAINING  TEMP- 

*  ERATURE  AVERAGES  FOR  PERIODS  OF  TIME  LONGER  THAN 

*  N-MINUTES. 

*  COUNTt  CCOUNT  -  VARIA3LES  USED  FOR  THE  MERGING  OF 

*  CONTROLLED  ANC  UNCONTROLLED  PERIODS. 

O  STATE  -  THE  STARTING  STATE  (ON/OFF)  FOR  THE  INOIVIO- 

*  UAL  HOUSE. 

*  NUMHR1,  NUMHR2t  NUMHR3  -  THE  LENGTH  OF  THE  3  DIF- 

*  FERENT  PERIODS  OF  THE  DAY  WHERE  CONTROL  IS  USED. 


C 

C    OPEN  A  FILE  TO  PRINT  RESULTS  TO. 

C 

UNIT2=10 

OPEN  (UNIT=UNIT2,FIL£='I0UN2') 

ALPHA=. 446287103 

BETA=. 022314355 

INTLEN=30 

LC0N=7.5 

DSEE 0=6/ 5432 8 34. 00 

M=20 

TPEAK=100 

N=5.0 

T0N=74 

T0FF=7O 
C 

C    DO  LOOP  100  INITIALIZES  ALL  OF  THE  ELEMENTS  OF  TH^ 
C    TOTAL  SYSTEM  CURVES  TO  0. 
C 
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00  100  J=l,200 
USYSt J)=0 
CSYSI J)=0 

100    CONTINUE 
C 

C    RANDOM  IS  CALLEO  TO  GENERATE  THE  RANOOM  STARTING 

C    CONDITIONS. 

C 

CALL  RANDOM(M,0SEED,M,TOFF,T0N,START,TI) 
C 

C    DO  LOOP  300  LOOPS  OVER  THE  DESIRED  NUMBER  OF  HOUSES  TO 
C    PRODUCE  A  CONTROLLED  LOAD  CURVE. 
C 

00  300  1=1, M 

T=TII II 

STATE=START(I) 
C 

C    UNCON  IS  USED  TO  PRODUCE  THE  TRANSITIONS  FOR  THE  UNCON- 
C    TROLLEO  CASE.  NAVG  FINDS  THE  AVERAGE  POWER  AND  TEMPER- 
C    ATURE  FOR  N-MINUTE  INTERVALS. 
C 

TIMEO  =0.0 

NUMHR1=2.0 

CALL    UNCON (ALPHA, SETA, T, STATE, TON, TOFF, J, TOAY, 
15  TRANS,TEKP,NU"1HRl,TPEAK,TAMB,TI1<<eO) 

CALL    NAVG(TDAY,TRANS,TEMP,J,ALPHA,BETA,N,PWR, 

*  TEMPAV,TAf3,NUHHRl, TIMEO) 
C 

C    DETERMINE  WHAT  THE  INITIAL  TEMPERATURE  IS  FOR  THE 

C    CONTROL  PERIOD. 

C 

TIME0=120 
NUMHR2=6.0 
C0UNT=1 
325        IF  (TQAY(COUNT)  .GE.  TIMED  )  GO  TO  330 
C0UNT=C0UNT+1 
GO  TO  325 
330        IF  (TRANS(COUNT-l)  .EQ.  'OFF')  THEN 

T  =  TAMB(C0UNT-1I  +  (TEMP(CQUNT-1)-TAI*B<C0UNT-1) 
=>  )*EXP( -BETA* (TIMEO-TDAY (COUNT- I)  )) 

STATE='OFF' 
ELSE 

T= T AM B ( COUNT- 1) -ALPHA /BET A+(TFMP( COUNT-  I)  + 

ALPHA/BETA-TAMOICOUNT-1)  )  *EXP  [  -BETA*(  TTMFO 

*  -TDAY(COU^T-l) ) ) 
STATE=,ON' 

END  IF 
C 

C    CON  IS  USED  TO  PRCDUCE  THE  TRANSITIONS  FOR  THE  CON- 
C    TROLLED  CASE.  NAVG  FIN'OS  AVERAGE  TEMPERATURE  AND  POWER 
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C    FOR  N-MINUTE  INTERVALS. 
C 

CALL  CON (ALPH At  BETA »T, STATE, TON, TOFF, LCON,K .STATUS 

*  ,CT0AY,CTEMP,INTLEN,NUMHR2,TPEAK,CTAMB, 

*  TIMEO) 

CALL  NAVG(CTO AY, STA TUS ,CTEMP , K, ALPHA , SETA ,N»CPWR, 

*  CTEMAV,CTAM8,NUMHR2, TIMEO) 
C 

C    FIND  THE  INITIAL  TEMPERATURE  FOR  THE  NEXT  UNCONTROLLED 

C    PERIOD. 

C 

NUMHR3=* 

TIME0=48O 

CCOUNT=l 
335       IF  (CTDAY(CCOUNT)  .GE.  TIMEO)  GO  TO  3*0 
'  CCOUNT=CCOUNT+1 

GO  TO  335 
340       IF  ISTATUStCCOUNT-l )  .EQ.  'OFF'  )  THEN 

T=CTAM3JCC0UNT-l)+(CTEMP(CC0UNT-l)-CTAMetCCOUNT 

*  -1) )OEXP(-3ETAO(TIME0-CTnAYICCaUNT-l) ) ) 
STATE='OFF' 

ELSE 

T=CTAMB<CCOUNT-l  l-ALPH A/8ETA+I CTEMP (CCCUNT-l > + 
=>  ALPHA/BETA-CTAM3fCC0UNT-l)  l*EXP  (-3ET4-M  T  IM£0 

*  -CTDAYICCOUNT-l ) ) > 
STATE=,ON' 

ENDIF 
C 

C    GENERATE  THE  DATA  FOR  THE  LAST,  UNCONTROLLED  HOURS  OF 
C    THE  TIME  PERIOD. 
C 

CALL  UNCQNI ALPH A, BETA, T, STATE, TON, TOFF, J, TO AY, 

*  TRANS,TEfP,NUMHR3,TPEAK,TAM3,TIMF0) 
CALL    NAVG(TDAY, TRANS, TEMP, J, ALPHA, BETA, N,PWR2, 

*  TEMPA2,TAMB,NUMHR3, TIMEO) 
C 

C    MERGE  THE  OATA  FOR  THE  THREE  TIME  PERIODS.  START  3Y 
C    ADDING  THE  DATA  FOR  THE  CONTROLLED  PERIOD  TO  THE  OATA 
C    FOR  THE  FIRST  UNCONTROLLED  PERIOD. 
C 

C0UNT=1 

INTI  =  NUMHRI=>12  +  1 

INT2= (NUMHRI+NUMHR2 )*12 

00  350  J=INT1,INT2 

PWR(J)=CPWR(COUMT) 
TEMPAVI J)=CTEMAV (COUNT) 
C0UNT=C0UNT*1 
350       CONTINUE 
C 
C    MERGE  THE  LAST  PERIOD  WITH  THE  FIRST  TWO. 
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C0UNT=1 
INT1=INT2+1 

INT2=(NUMHR1+NUMHR2+NUMHR3>312 
DO  360  J=INT1,INT2 

PWR(J)=PWR2(C0UNT) 
TEMPAV(J)=TEMPA2(C0UNT) 
COUNT=COUNT+l 
360       CONTINUE 
C 

C    SUM  THE  N-MINUTE  POWER  DATA  TO  CALCULATE  THE  AGGREGATE 
C    AVERAGE. 
C 

DO  370  J=l,144 

CSYSU)=CSYS(J)  +  PWR(J)/M 
370       CONTINUE 
3C0    CONTINUE 
C 

C    00  LOOP  400  PRODUCES  OATA  FOR  A  SUMMED  LOAD  CURVE  WITH- 
C    OUT  CONTROL  FOR  THE  DESIRED  NUMBER  OF  HOUSES. 
C 

DO  400  L0QP=1,M 
TIMEO=0.0 
NUMHR1=12.0 
C 

C    USE  UNCUN  AND  NAVG  TO  GENERATE  N-MINUTE  AVERAGES. 
C 

CALL  UNCONI ALPHA, BE TA, T l( LOOP ) .START ( LOOP  1 , TON, 
"  T0FF,J,TDAY,TRANS»TEMP,NUMHR1,TPEAK, 

*  TAMB,TIMEO) 

CALL  N A VG (TOAY, TRANS, TEMP, J, ALPHA, BETA, N,PWR, 
~  UTEMPA,TAfB,NUMHRl,TIMEO) 

C 

C    CALCULATE  THE  AGGREGATE  POWER  AVERAGE. 
C 

DO  410  1=1,144 

USYSCI )=USYS(I)+PWR(I)/M 
410       CONTINUE 
400    CONTINUE 
C 

C    PRINT  OUT  N-MINUTE  DATA. 
C 

WRITE  (10,1000)  ALPHA, BETA 
WRITE  (10,1010)  N 
WRITE  (10,1020) 
DO  500  1=1,144 

WRITE  (10,1030)  REAL( 11/12, CSYSII ),TEMPAV(I), 

*  USYSII ),UTEMPA(I ) 
SOO    CONTINUE 

C 
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C    CALCULATE  ONE-HOUR  AGGREGATE  AVERAGES  A.NO  PRINT  OUT  THE 

C    RESULTS. 

C 

CALL    AVEPWR(CSYS,60,INT(NI,CPAVG,NUMHR1) 

CALL    AVEPWR(USYS,60,INT(N),PAVG,NUMHR1) 

CALL  AVEPWR(TEMPAV,60,  INT(N) ,C AVGTE,NUMHR1 ) 

CALL  AVEPWR(UTEMPA,60, INTIN) ,AVGTEM,NUMHR I ) 

WRITE  I 10,*» 

WRITE  HO,*)  •  ONE-HOUR  DATA* 

WRITE  (10,10*01 

WRITE    (lO,10<r5J 

WRITE    (10,10501     ( I,CPAVG( II,PAVG(I) ,CAVGTE(I), 
*  AVGTEM(I),    I=1,NUMHR1I 

C 

C         FORMAT    STATEMENTS    FOR    PRINTING. 
C 

1000       FORMAT!*     OATA    FOR    ALPHA=    *,F5.3,*    ANO    BETA=*,F5.3) 
1010      FORMATC     • , 1X,F2.0, *-M INUTE    OATA'I 

1020       FORMAT!'     *,*       TIME  •  ,<tX  ,  •  W/CQNTROL*  ,3X  ,  •  W/0    CONTROL") 
1030       FORMAT!*       • ,F5.2 ,2X, F5 .3,2X, F5 .2 , 2X, F5.3 ,2X,F5 .2 ) 
ICO       FORMATC        ',' TIME* ,*X, 'POWER' , 6X , 'TEMPERATURE' ) 
10*5       FORMATC     • ,6X, 'CON' , 3X ,' UNCON' ,3X, 'CON* , 3X , ' UNCGN* ) 
1050       FORMAT!*        • , 12 ,2X, F5.3 ,2X , F5 .3,2X,F5.2,2X,F5.2 ) 

STOP 

END 
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eQ«99a99I»9999«9«9<>94  99999999  9999940034  «4«»9«*ftO«4S«<i*9S4<!*« 

*  PROGRAM  NEWSINE  IS  A  VERSION  OF  SINETEMP  THAT  USES  THE 
9    METHOD  OF  CONTROL  USED  IN  SUBROUTINE  NEOCON.  IT  PRO- 

9  DUCES  A  CONTROLLED  12  HOUR  DAY  AND  AN  UNCONTROLLED  12 

*  HOUR  DAY.  THE  METHOD  OF  CONTROL  IS  LOAD  LEVELLER.  THE 
9  DRIVING  TEMPERATURE  TEMPERATURE  IS  PIECEWISE  CONSTANT 
■»  APPROXIMATING  A  SINUSIOD. 

!»S99*99»>:"S9999*99*<>999999999  «**-»<?*  «i*sj  <S49  99999  Kf  <iUSs099  9999999 

e 

INTEGER  UNIT2,J,K,M,C0UNT,CC0UNT,L00P 

REAL  ALPHA,BETA,T,TDAY(l0OO),TON,TOFF,PWRI20OI t 

*  CTDAY ( 1000) tCPWRI 20  0), Til  1000  I ,USYS ( 200 ) ,CSYS I  200 > 
9    , TEMPI  100  0)  fC  TEMPI  1000  It  TEMPAVI  200),  CTEM  AVI  200), 

*  PWR2I 200),TEMPA2I20  0)  ,N,TAMB ( 1000 ) ,CTAM8 (  10  00 ) , 

•  LCON, INTLEN,NUMHR1,NUMHR2,NUMHR3,PAVG(100), 

•  CPAVG(100),AVGTEM(100),CAVGTE(100),UTEMPA(200), 
9    TDAY2I 100  0) , TEMP2 U 000 1,TAM32{ 1000) 

DOUBLE  PRECISION  DSEED 

CHARACTER  STATE93, START! 1000 )93, TRANS I 1000 ) 93, 
9    STATUS11000|93,TRANS2I1000)93 

9 

oa^^^*  9**' ^ft^<»3G##3999  99*90  99999**^*9  3999***::*  **?:»>999999*i=:i:S» 

*  VARIABLE  EXPLANATIONS: 

9  ALPHA  -  COOLING  COEFFICIENT  WITH  THE  A/C  ON. 
9         (DEGF/MIN) 

*  3ETA  -  HEATING  COEFFICIENT.  Il/MIN) 

*  T  -  VARIABLE  USED  TO  KEEP  TRACK  OF  TEMPERATURE. 
9  TON  -  TEMPERATURE  AT  WHICH  THE  SYSTEM  TURNS  ON. 
9         IDEGF) 

*  TOFF  -  TEMPERATURE  AT  WHICH  THE  SYSTEM  TURNS  OFF. 

*  (OEGF) 

9  N  -  VARIABLE  SPECIFYING  THE  LENGTH  OF  THE  PERIOD  OF 
9         INTEREST  FOR  POWER  AND  ENERGY  CONSUMPTION. 

*  M  -  VARIABLE  SPECIFYING  THE  NUM3ES  OF  HOUSES  USED  TO 

*  PRODUCE  A  SUMMED  LOAD  CURVE. 

"  TUAYI1800),  TRANS11800),  TEMP<1300)  -  VECTORS  FOR 

■>         STORING  TRANSITION  TIMES,  STATES  (ON/CFF),  AND 

9         TtMPSRATURES  FOR  THE  UNCONTROLLED  CASE. 

9  CTDAYI1300),  STATUS! 1300),  CTEMOII800)  -  VECTORS  FOR 

9         STORING  TRANSITION  TIMES,  STATES  (ON/OFF),  AND 

9         TEMPERATURES  FDR  THE  CONTROLLED  CASE. 

9  TAMBUOOO),  CTAMBIIOOO)  -  VECTORS  OF  THE  CRIVING 

9         TEMPERATURFS  AT  THE  TRANSITION  TIMES  FOR  THE 

9         RESPECTIVE  CASES.  10EGF) 

9  PWRI200),  CPWRI200)  -  VECTORS  STORING  THE  FRACTION  OF 

9         EACH  N-MINUTE  PERIOC  IN  WHICH  THE  A/C  IS  FOR  SCTH 
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<■         OF  THE  CASES. 

«  TEMPAVI200),  CTEMAVI2O0)  -  VECTORS  STORING  THE  N- 

*  MINUTE  TEMPERATURE  AVERAGES  FOR  BOTH  OF  THE  CASES. 

*  UTEMPA1200I  -  VECTOR  STORING  THE  N-MINUTE  TEMPERATURE 

*  AVERAGE  FOR  THE  OAY  WITH  NO  CONTROL  PERIOD. 

*  USYSI200),  CSYS1200)  -  VECTORS  STORING  THE  TOTAL 

»  ENERGY  CONSUMPTION  FOR  EACH  N-MINUTE  INTERVAL  FOR 

*  M  HOUSES  FOR  9CTH  CASES. 

*  LCON  -  LENGTH  OF  THE  CONTROL  PERIOD.  IMIN) 

»  INTLEN  -  LENGTH  OF  THE  INTERVAL  FOR  LCON  MINUTES  ARE 

*  CONTROLLED.  (MIN) 

*  OSEED  -  SEED  NUMBER  USED  TO  GENERATE  RANDOM  NUMBERS. 

*  TItlOOO),  START(IOOO)  -  VECTORS  THAT  STORE  THE 

*  INITIAL  TEMP.  AND  STATE  FOR  EACH  OF  THE  M  HOUSES. 

*  UNIT2  -  VARIABLE  USED  TO  ESTABLISH  AN  OUTPUT  FILE. 

*  J  -  VARIABLE  CONTAINING  THE  NUMBER  OF  TRANSITIONS  IN 
o  TOAY. 

*  K  -  VARIABLE  CONTAINING  THE  NUMBER  OF  TRANSITIONS  IN 

*  CTDAY. 

*  PAVGIlOOIt  CPAVGtlOOl  -  VECTORS  CONTAINING  POWER  AV- 

*  ERAGES  FOR  PERIODS  CF  TIME  LONGER  THAN  N-MINUTES. 
o  AVGTEMtlOO),  CAVGTEtlOC)  -  VECTORS  CONTIAINING  TEUP- 

*  ERATURE  AVERAGES  FOR  PERIODS  OF  TIME  LONGER  THAN 

*  N-MINUTES. 

*  COUNT*  CCOUNT  -  VARIABLES  USED  FOR  THE  MERGING  OF 

*  CONTROLLED  AND  UNCONTROLLED  PERIODS. 

*  STATE  -  THE  STARTING  STATE  (ON/OFF)  FOR  THE  INDIVIC- 

*  UAL  HOUSE. 

*  NUMHR1,  NUMHR2,  NUMHR3  -  THE  LENGTH  OF  THE  3  DIF- 

«  FERfcNT  PERIODS  OF  THE  DAY  WHERE  CONTROL  IS  USED. 

o 
c 

C    OPEN  A  FILE  TO  PRINT  RESULTS  TO. 
C 

UNIT2=10 

OPEN  (UNIT=UNIT2,FILE='IOUM2') 

ALPHA=1. 0331697 

8ETA=. 02231*355 

INTLEN=30 

LCQN=7.5 

DSEE0=675432834.00 

M=20 

TPEAK=110 

N=5.0 

T0N=7<, 

TOFF=70 
C 
C    !)0  LOOP  100  INITIALIZES  ALL  OF  THE  ELEMENTS  OF  TH5 
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C    TOTAL  SYSTEM  CURVES  TO  0. 
C 

DO  100  J=l,200 

USVS( J)=0 

CSYSJ J)=0 
100    CONTINUE 
C 

C    RANOOM  IS  CALLED  TO  GENERATE  THE  RANDOM  STARTING 
C    CONDITIONS. 
C 

CALL  RANDOM! M,DSEEO,M,TOFF,TON,START,T I) 
C 

C    DO  LOOP  300  LOOPS  OVER  THE  DESIRED  NUMBER  OF  HOUSES  TO 
C    PRODUCE  A  CONTROLLED  LOAD  CURVE. 
C 

DO  300  1=1, M 

T=TI( I) 

STATE=STARTIII 
C 

C         UNCON    IS    USED    TO    PRODUCE    THE    TRANSITIONS    FOR    THE    UNCON- 
C  TROLLED    CASE. 

C 

TIMEO    =0.0 

NUMHR 1=2. 45799*94 

CALL  UNCON (ALPHA, BETA, T, STATE, TON, TOFF, J, TD AY, 

*  TRANS, TEPP,NUMHR1,TPEAK,TAMS,TIMEQ| 
C 

C    DETERMINE  WHAT  THE  INITIAL  TEMPERATURE  IS  FCR  THE 

C    CONTROL  PERIOD. 

C 

TIME0=147. 4796964 

NUMHR2=11.00809997-NUMHRl 

C0UNT=1 
325        IF  ITDAY(COUNT)  .GE.  TIMEO  )  GO  TO  330 

C0UNT=C0UNT+1 

GO  TO  325 
330        IF  ITRANSICGUNT-l)  .EQ.  'OFF')  THEN 

T=TAMBCCaUNT-l)+lTEMPICOUNT-l)-TAMB(COUNT-l) 

*  I*EXPI-BETA'»<TIME0-TDAYIC0UNT-1)  I  1 
STATE='OFF« 

ELSE 

T  =  TAMB(C0UNT-1)-ALPHA/F)  FT  A  +  {  TEMPI  C0UNT-11  + 

*  ALPHA/BETA-TAM31C0UNT-1) >*EXPI-BeTA*ITIMEO- 

*  TDAYICCUNT-1 )) ) 
STATE=,0N* 

ENDIF 
C 

C    CON  IS  USED  TO  PRCDUCE  THE  TRANSITIONS  FOR  THF  CCN- 
C    TROLLED  CASE. 
C 
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CALL  NEOCON I  ALPHA, 3  ETA, T, STATE .TON. TOFF. K.CTDAY, 
■»  STATUS,CTEMP,NUMHR2,TPEAK,CTAM9.TIME0, 

*  OSEEO) 
C 

C    FIND  THE  INITIAL  TEMPERATURE  FOR  THE  NEXT  UNCONTROLLED 

C    PERIOD. 

C 

NUHHR3=12.0-NUMHR2-NUMHR1 

TIME0=660. 4859982 

CCOUNT=l 
335       IF  (CTDAY(CCOUNT)  .GE.  TIMSO)  GO  TO  340 

CC0UNT=CC0UNT+1 

GO  TO  335 
340       IF  ISTATUStCCOUNT-l  )  .EQ.  'OFF'  )  THEN 

T=CTAMBICC0UNT-1 )+(CTEMP( CCOUNT-1 ) -CTAM3 CCCOUN T 

*  -II )*EXP(-3ETA*(TIME0-CTDAY(CC0UNT-1) )l 
STATE='OFF' 

IF  (CTEMP(CCOUNT-l)  .GE.  TON)  STAT6=*0N* 
ELSE 

T=CTAMB(CC0UNT-1 1-ALPHA/3ETA+I CTEMPtCCOUNT-1 1+ 

*  ALPHA/3ETA-CTAM3(CC0UNT-1) ) *EXP ( -BETA*! T tHEO 

*  -CTDAY(CCOUNT-l) I ) 
STATE=,ON' 

ENDIF 
C 

C    GENERATE  THE  DATA  FOR  THE  LAST^  UNCONTROLLED  HOURS  OF 
C    THE  TIME  PERIOD. 
C 

CALL  UNCON(ALPHA.3ETA.T,STATF,TON,TOFF,J,TOAY2, 

*  TRANS2,TEMP2,NUMMR3.T?EAK,TAHn2,TIMEOI 
C 

C    MERGE  THE  DATA  FOR  THE  THREE  TIME  PERIODS.  START  SY 
C    ADDING  THE  DATA  FOR'  THE  CONTROLLED  PERIOD  TO  THE  DATA 
C    FOR  THE  FIRST  UNCONTROLLED  PERIOn. 
C 

L00P=1 
INT1=C0UNT 
INT2=COUNT+CCOUNT-2 
DO  350  Q=INT1»INT2 

TDAY(0)=CT0AYILO0P) 
TRANS IQ>=STATUS< LOOP) 
TEMP(Q)=CTEMPILO0P) 
TAM3(Q)=CTAM3(Lr)CP) 
LOOP=LOOP+1 
350       CONTINUE 
C 

C    MERGE  THE  LAST  PERIOO  WITH  THE  FIRST  TWO. 
C 

LOUP= I 
INT1=INT2+1 
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INT2=COUNT+CCOUNT+J-2 
00  360  Q=INT1 ,INT2 

TDAY(Q)=TDAY2(L0CP> 
TRANSI Q)=TRANS2(  LOOP) 
TEMP(Q)=TEMP2(L0CPI 
TAMB(Q)=TAMB2(L0CP) 
L00P=L00P+1 
360       CONTINUE 
C 

C    CALL  NAVG  TO  GENERATE  THE  N-MINUTE  AVERAGES. 
C 

CALL  NAVG (TOAY, TRANS, TEMP, INT2, ALPHA, BETA»N»PWRi 
*  TEMPAV,TAf3,12.0,0.0l 

C 

C    SUM  THE  N-MINUTE  POWER  DATA  TO  CALCULATE  THE  AGGREGATE 
C    AVERAGE. 
C 

00  370  J=l,144 

CSYS(J)=CSYS(J)  +  PWRU)/M 
370       CONTINUE 
300    CONTINUE 
C 

C    PRINT  OUT  N-MINUTE  OAT A. 
C 

WRITE  (10,1000)  ALPHA, BETA 
WRITE  (10,1010)  N 
WRITE  (10,1020) 
00  500  1=1,144 

WRITE  (10,10301  REAL(I)/12,CSYS(I),TFMPAV(I) 
500    CONTINUE 
C 

C    CALCULATE  ONE-HOUR  AGGREGATE  AVERAGES  AND  PRTNT  CUT 
C    THE  RESULTS. 
C 

CALL  AVEPWRICSYS,60,INT(N),CPAVG,12.0) 
CALL  AVEPWR(TEMPAV,60, INT ( N) ,C AVGTE , 12 .0 ) 
WRITE  (10, «) 

WRITE  (10,*)  •  ONE-HOUR  DATA* 
WRITE  (10,1040) 

WRITE  (10,1050)  II,CPAVG(I),CAVGTE( I), 1=1, 121 
C 

C    FORMAT  STATEMENTS  FOR  PRINTING. 
C 

1000   FORMATC  DATA  FOR  ALPHA=  ",F5.3,*  AND  BETA=',F5.3) 
1010   FORMATC  • , 1 X , F2 .0 , "-M INUTE  OATA*) 
1020   FORMATC  •,•   TI Pe ', 2X ,• POWER •, 2X, • TEMP .• > 
1030   FORMAT!'   ■ , F5. 2 ,2X, F5 .3,2X,F5 .2 1 

1040   FORMATC   •, 'T IME* ,4X, "POWER • ,6X ,• TAMPER ATURE* ) 
1050   FORMATC    • ,I2,5X,F6.4,7X,F6.3) 


STOP 
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*  THIS  IS  UNCON  USED  WITH  DIURNALLY  VARYING  DRIVING  TE"P. 

*  SUBROUTINE  UNCON  DETERMINES  THE  TRANSITION  TIMES  FOR 

*  THE  UNCONTROLLED  CASE.  THE  RESULTING  TRANSITION  TIKES 

*  ARE  RETURNED  IN  TDAY  WHICH  IS  A  600  MEMBER  ARRAY.  TRANS 
■>  RETURNS  THE  STATE  THAT  THE  SYSTEM  GOES  TO  WHEN  THE 

■»  TRANSITION  IS  MADE. 

« 
O 

SUBROUTINE  UNCON  ( ALPHAt BETA  tit  STATE tTON»TOFF , J, TOAY , 
"  TRANS, TEMP, NUMHRS,TPEAK,TAM3,T I MEO) 

o 

**********  ***o**a*****o***  ********  9**  <i<t*^^£;>^:$$^sv-::i:«<:**>o  sag 

*  ARGUMENT  EXPLANATIONS: 

*  ALPHA  -  COOLING  COEFFICIENT  WITH  A/C  ON  (OEGF/MIN). 

*  (INPUT) 

*  SETA  -  HEATING  COEFFICIENT  (1/MINI.  (INPUT 

*  T  -  INITIAL  TEMPERATURE  OF  THE  SYSTEM.  (INPUT) 

*  STATE  -  INITIAL  STATE  (ON/OFF)  OF  THE  A/C.  (INPUT) 

*  TUN  -  TEMPERATURE  AT  WHICH  THE  A/C  TURNS  ON. 

*  I  INPUT) 

*  TOFF  -  TEMPERATURE  AT  WHICH  THE  A/C  TURNS  OFF. 

*  (INPUT) 

*  J  -  THE  NUMBER  OF  ON/OFF  TRANSITIONS  MADE  IN  A  PER- 

*  100  OF  SPECIFIED  LENGTH.  (OUTPUT) 

*  TDAY  -  VECTOR  OF  LENGTH  J  WHICH  CONTAINS  TRANSITION 

*  TIMES  (IN  MINUTES)  FOR  THE  PERIOD.  (OUTPUT) 

*  TRANS  -  VECTOR  OF  LENGTH  J  WHICH  CONTAINS  THE  STATE 

*  (ON/OFFI  OF  THE  SYSTEM  AFTER  THE  CORRFS- 

*  PONDING  TRANSITION  IN  TDAY.  (OUTPUT) 

*  TEMP  -  A  VECTOR  THAT  GIVES  THE  TEMPERATURE  OF  THE 

*  SYSTEM  AT  EACH  TRANSITION.  (OUTPUT) 

*  NUMHRS  -  NUMBER  OF  HOURS  FOR  WHICH  TRANS  ISTIONS  ARE 

*  DESIRED.  (INPUT) 

*  TIMEO  -  INITIAL  TIME  FOR  TRANSITIONS.  (INPUT) 

*  TPEAK  -  PEAK  DRIVING  TEMPERATURE.  (INPUT) 

*  TAMB  -  VECTOR  OF  DRIVING  TEMPERATURE.  (OUTPUT) 

t>tf  e#a«oe«***4eo4«4e  »=><.<.»*!?  <i!>««*.-s0-t «««««  4«^««»««<>«oo  «»»  oca**: 


REAL  ALPHA.  BET  A,  T,  TDAY  (*>,  TON,  TOFF  , TFMP(* ) ,TAME ( * ) , 
•      NUMHRS, TPEAK, TIMED 
INTEGER  J 

CHARACTER*!*)  STATE , TRANS ( *) 
J=l 

TEMP(J)=T 
TRANS! J)=STATE 
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TDAY(J)=TIMEO 
C 

C    THIS  IF  STATEMENT  STARTS  THE  LOOP  3Y  CHECKING  IF  THE 
C    TIME  HAS  EXPIRED. 
C 
100    IF  ITDAYIJ)  .GT.  I 60*NUMHRS+30+T IMEO ) )  GO  TO  150 

TAMB(J)=85+(TPEAK-35l*SINf  .00<>36  332*T0AYUI  ) 
C 

C    THE  NEXT  THREE  IF  STATEMENTS  CHECK  IF  THE  SYSTEM  IS  I  "J 
C    AN  EXTREME  SITUATION,  AND  IF  SO,  CALLS  THE  APPROPRIATE 
C    SUBROUTINE  AND  STARTS  THE  LOOP  OVER. 
C 

IF  (ALPHA/BETA  .LE.  ITAM3I J)-TOFF )  .AND.  TAMEIJI 

*  .GT.  TONI  THEN 

CALL  NOCOOL t ALPHA, 3ETA, TON, TAMB, J, TDAY, TRANS, TEMP 

*  ,TPEAK) 
GO  TO  100 

ENDIF 

IF  (TAMB1JI  .LE.  TON  . ANO.  ALPHA/BETA  .GT. 

*  (TAMB(J)-TOFF) )  THEN 

CALL  N0HEAT(ALPHA,BETA,TOFF,TAMB( J > , J ,TDAY,TRANS, 

*  TEMPI 
GO  TO  100 

ENOIF 

IF  (ALPHA/BETA  .LE.  (TAMP ( J)-TOFF I  .AND.  TAMS(J)  .LE. 

*  TON)  THEN 

CALL  A3EXT(ALPHA,EETA,TAMB( J) , J,TDAY,TRANS , TEMP  I 
GO  TO  100 
ENOIF 
C 

L    THESE  STATEMENTS  DETERMINE  THE  TRANSITIONS  IF  THE 
C    SYSTEM  IS  IN  NORMAL  OPERATION.  IF  THE  SYSTEM  IS  CN , 
C    THE  NEXT  TRANSITION  IS  DETERMINED  USING  THE  COOLING 
C    MODEL.  IF  THE  SYSTEM  IS  OFF,  THE  NEXT  TRANSITION  IS 
C    DETERMINED  BY  THE  HEATING  MOOEL. 
C 

IF  ITRANSUI  .EQ.  'ON*  I  THEN 

TDAY[J+ll=TDAY(JI-( 1/EETA l*LOG( I TOFF+ALPHA/EETA- 

*  TAMB(J))/(TEMP(JI+ALPHA/3ETA-TAM3(J))I 
TRANS(J+1)='0FF' 

TEMPI J+1)=T0FF 
J  =  J  +  1 
ELSE 

TDAY( J+1I=TDAY( J)-( 1/3ETA ) *LOG I (T0N-TAM2I J) )/ 

*  TEMPI J1-TAM3IJ) ) ) 
TRANS(J-t-l)  =  ,0N' 
TEMPI J+1)=T0N 

J  =  J  +  l 
ENOIF 
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C    THIS  STATEMENT  STARTS  THE  LOOP  OVER  AGAIN 
C 

GO  TO  100 
150    TAMBf JJ=85+(TPEAK-85)*SIN(.00^36  332«TDAY( J) I 

RETURN 

END 


M-67 


*  THIS  IS  CON  USED  WITH  SINETEMP.  IT  UTILIZES  DIURNALLY 

*  VARYING  DRIVING  TEMPERATURE. 

*  SUBROUTINE  CON  DETERMINES  THE  TRANSITION  TIMES   AND 

*  STATES  OF  THE  SYSTEM  FOR  THE  CONTROLLED  CASE.  THE 

*  SYSTEM  IS  AUTOMATICALLY  OFF  FOR  THE  FIRST  LCON  MINUTES 

*  OF  EACH  HALF  HOUR.  THE  SUBROUTINE  GENERATES  OATA  FOR  A 

*  PERIOD  OF  SPECIFIED  LENGTH.  CTDAY  RETURNS  THE  TRANSI- 

*  TION  TIMES  AND  STATUS  RETURNS  THE  CORRESPONDING  STATES. 

• 
* 

SUBROUTINE  CON  I  ALPHA, BETA. TI .STATE, TON t TOFF ,LCON,K, 

*  STATUS, CTDAY, T»INTLEN,NUMHRS,TPEAK, 

*  TAM8,TIME0I 

o 

« 

*  ARGUMENT  EXPLANATION: 

*  ALPHA  -  COOLING  COEFFICIENT  WIHT  A/C  ON  (DEGF/MIN). 

*  IINPUT) 

*  BETA  -  HEATING  COEFFICIENT  (1/MIN).  (INPUT) 

*  TI  -  INITIAL  TEMPERATURE.  (INPUT) 

*  STATE  -  THE  INITIAL  STATE  (ON/OFF)  OF  THE  A/C. 

*  TON  -  TEMPERATURE  AT  WHICH  A/C  SHUTS  OFF.  (INPUT) 

*  TOFF  -  TEMPERATURE  AT  WHICH  A/C  SHUTS  OFF.  (INPUT) 
»  LCON  -  VARIABLE  THAT  SPECIFIES  THE  LENGTH  OF  THE 

•»  CONTROL  PERIOD. 

*  K  -  VARIABLE  THAT  COUNTS  THE  NUMBER  OF  TRANSITIONS 

*  THAT  ARE  CALCULATED.  (OUTPUT) 

*  STATUS  -  A  VECTOR  OF  LENGTH  K  THAT  GIVES  THE  STATE 

*  (ON/OFF)  AFTER  EACH  TRANSITION.  (OUTPUT) 

*  CTDAY  -  A  VECTOR  OF  LENGTH  K  THAT  CONTAINS  THE  TRAN- 

*  SITION  TIMES  (IN  MINUTES)  FOR  THE  GIVEN 

*  SITUATION.  (OUTPUT) 

*  T  -  A  VECTOR  CONTAINING  THE  TEMPERATURES  AT  THE 

*  TRANSITION  TIMES.  (OUTPUT) 

»  INTLEN  -  LENGTH  OF  INTERVAL  OF  WHICH  THE  FIRST  LCON 

*  MINUTES  ARE  AUTOMATICALLY  OFF.  (INPUT) 

*  NUMHRS  -  NUMBER  OF  HOURS  OVER  WHICH  TO  CALCULATE  THE 

*  A/C  TRANSITIONS.  (INPUT) 

*  TPEAK  -  PEAK  OF  THE  DAILY  TEMPERATURE.  (INPUT) 
"  TAM8  -  A  VECTOR  OF  THE  DRIVING  TEMPERATURES  FOR 

■»  WHICH  TRANSITIONS  ARE  CALCULATED.  (OUTPUTI 

*  TIMED  -  TIME  WHERE  CONTROL  BEGINS  (REFERENCED  TO 

*  BEGINNING  OF  PERIOD  OF  INTEREST).  (INPUT) 

O 

© 

INTEGER  K 
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REAL  ALPHA, BETA, T(*),TCN, TOFF, CTDAY(«] ,TI,LCON, 

*  TAMB(«)»TIMEO,INTLEN,NUHHRS,TPEAK 
CHARACTER*!*!  STATUS!* ) .STATE 
CHARACTERS  PREVST 

DOUBLE  PRECISION  DSEED 
• 
« 

*  VARIABLE  EXPLANATION: 

*  PREVST  -  VARIABLE  TO  KEEP  TRACK  OF  THE  STATE  (ON/ 

*  OFF)  OF  THE  SYSTEM  AT  THE  TIME  OF  CONTROL. 

<• 
* 

PREVST=STATE 
K=l 

T«KI=TI 
C 

C    EACH  LOOP  OF  00  LOOP  100  REPRESENTS  1  HALF-HOUR  PERIOD. 
C 

LO0P  =  INTUNUMHRS*60+3O)/INTLEN) 
00    100    1=1, LOOP 

STATUSIK)=*OFF« 

CT0AYIK)=!I-1)  *  INTLEN+TIHEO 

TAM81K  1  =  85+1  TPEAK-85  )*SINI  .00<t36332*CTDAY  IK  > ) 
TIK+1)=TAMBIK)+(T(K)-TAMBCK))«EXP(-BETA*LC0N) 
C 

C    THESE  THREE  IF  STATEMENTS  OETERMINE  IF  AN  EXTREME  CASE 
C    IS  PRESENT  AND  SENDS  CONTROL  TO  THE  SECTION  OF  THE  SUB- 
C    ROUTINE  THAT  HANDLES  THAT  PARTICULAR  CASE.  IF  AN  EX- 
C    TREME  CASE  DOES  NOT  EXIST,  OPERATION  PROCEEDS  IN  A 
C    NORMAL  FASHION. 

IF  IALPHA/BETA  .LE.  I TAMBI K )-TOFF)  .AND. 

*  TAMBIK)  .GT.  TON)  GO  TO  110 

IF  ITAMB(K)  .LE.  TON  .AND.  ALPHA/BETA  .GT. 

*  (TAMBIK)-TOFF))  GO  TO  1Z0 

IF  (ALPHA/BETA  .LE.  ( TAM8I K l-TOFFI  .AND.  TAM3IK1 

*  .LE.  TON»  GO  TO  130 
STATUSIK+lJs'ON' 
K=K+1 

C 

C         THIS    NESTEO    IF    STATEMENT    DETERMINES    THE    FIRST    POST- 

C         CONTROL    TRANSITION. 

C 


IF    ITIKJ     .GE.    TON)     THEN 

CTDAY!K)=CTDAY1K-1)*-LC0N 

ELSE 

IF    1PREVST    .EO.     'ON'!    THEN 

CTDAYIK)=CTDAYIK-1H-LC0N 
ELSE 
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c 


CTDAYIKI=CTDAYCK-n+LCON-l/BETA«LOGUTON- 

TAMB«K-ll|/(TCKI-TAMBflC-lI)) 
TIK)=TON 
ENDIF 
END  IF 

TAMBIK 1=85+1 TPEAK-85)*SIN(.00*36332OCT0AY(K II 


C  THIS  IF  STATEMENT  IS  TO  DETERMINE  IF  THE  FIRST  POST- 

C  CONTROL  TRANSITION  IS  PAST  THE  END  OF  THE  HALF  HOUR.  IF 

C  SO,  THE  TEMPERATURE  IS  CORRECTED  TO  THE  END  OF  THE  HALF 

C  HOUR  AND  THE  NEXT  CONTROL  PERIOO  IS  ENTEREO. 


C 


C 


IF  (CTDAY(K)  .GE.  ( I*INTLEN+TIMEO ) »  THEN 

TIKI=TAMB<K-I)-MT(K-1I-TAMB«K-1II«EXPJ-BETA* 
INTLEN) 

GO  TO  100 

ENDIF 


C    THE  FOLLOWING  STATEMENTS  ARE  TO  OETERMINE  THE  TRANS- 
C    SITIONS  IN  THE  REST  OF  THE  HALF  HOUR. 

200       K=K+1 

IF  (STATUS(K-l)  .EQ.  'ON'!  THEN 

CTOAYfKI=CT0AY(K-l»-l/BETA«LOGUT0FF+ALPHA/BETA 

STA;uS(K!^OFM(TCK"1,+ALPHA/BETA"TA,,1B,K-1'), 
T(K)=TOFF 
ELSE 

Cr0^!Kln:T0A^BcK-n}(BETOL0G,,r0N-TAM8'K-1,,/ 

STATUS«K)='ON' 
T(KI=TON 
ENDIF 

TAMB(K)=85+eTPEAK-85)*SIN(.00'»36332<'CTDAY(KH 


C 

c 


ItlL"*!*!?"™!   SH!"S  IF  THE  LAST  TRANSITION  EX- 


C 

c 
c 
c 
c 


IF    ICTOAVIKJ    .LT.    II*INTLEN+TIMEOJI    GO    TO    200 
IF    THE    ENO    OF    THE    HALF    HOUR    HAS    BEEN    REACHED.    THIS    IF 

STAtTthE    SY°STEEMTLrT6WT^PERATURE    M°    «""*«!    WHAT 
STATE    THE    SYSTEM    WAS    IN    WHEN    THE    HALF    HOUR    ENDED. 

IF    ISTATUSCKI     .EQ.     "OFF'J    THEN 

Tt  K l  =  T AMB1 K-t l-ALPHA/BETA+l T( K-l | +ALPHA/BETA- 

*  TAMBtK-l))*EXP(-BETA    *    ( I* INTLEN+TIMEO- 

*  CTDAY(K-l))) 
PREVST='ON' 
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ELSE 

T(KI=TAMB(K-1I+IT{K-1I-TAMB«K-1II*EXP(-BETA*( 
O  KI*INTLEN+TIfEOI-CTOAYtK-lin 

PREVST='OFF« 
ENOIF 
GO    TO    100 
C 

C    SECTION  110  HANOLES  THE  CASE  WHERE  THE  A/C  DOES  NOT 
C    PROVIDE  ENOUGH  COOLING  TO  FORCE  THE  SYSTEM  DOWN  TO  TOFF 
C    AND  THE  AMBIENT  TEMPERATURE  IS  HIGH  ENOUGH  TO  CAUSE  THE 
C    SYSTEM  TO  HEAT  UP. 

110  IF    JPREVST    .EQ.    »OFF«    .ANO.    TIK+ll     .LT.    TON)    THEN 

WRITE    I6t*>    "WENT    TO    110' 
K=K+1 
CTOAYIKI=CTDAYCK-1I-(1/BETAI*LOGUTON-TAMB(K-11 

*  )/ITIK-ll-TAME«K-l) II 
T(KI=TON 
STATUSOCI^ON' 

IF  tCTDAYCKI  .GT.  « IOINTLEN+TIMEO) I  THEN 

T(KI=TAMB(K-1H-ITIK-1I-TAMBJK-1) )«EXP(-BETA 
»  *INTLEN) 

PREVST=»OFF' 
GO  TO  100 
ENDIF 
ELSE 

K=K+1 

CTDAY(KI=II-1>*INTLEN+LC0N+TIME0 
STATUSIKI='ON' 
ENDIF 

TAMB(KI=85+(TPEAK-85)*SINt.00*36332*CTDAY(K)l 
K=K+1 
T(KI=TAMBIK-1I-ALPHA/B£TA+«T<K-1)+ALPHA/BETA-TAM6 

*  (K-1II*EXP(-BETA  *  «I*INTLEN  +  TIMEO  -  CTOAY 

*  IK-llll 
PREVST='ON* 

C 

C    CONTROL  IS  TRANSFERRED  TO  THE  END  OF  LOOP  100  TO  START 

C    THE  NEXT  HALF-HOUR  PERIOD. 

C 

GO  TO  100 

c 

C    SECTION  1Z0  HANOLES  THE  EXTREME  CASE  WHERE  THE  AMBIENT 
C    TEMPERATURE  IS  NOT  HIGH  ENOUGH  TO  PRODUCE  HEATING  BUT 
C    THE  A/C  IS  SUFFICIENT  TO  PRODUCE  A  DROP  IN  TEMPERATURE. 
C 

1Z0       IF  IPREVST  .EO.  'ON'  .AND.  TCK+ll  .GT.  TOFF)  THEN 
WRITE  (6»*)'WENT  TO  120* 

K=K+1 

CTDAYtK)=l I-1X-INTLEN    +    TIMEO    +    LCON 

STATUStK^'ON1 
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K=K+l 

CTDAY(KI=CTDAY(K-1)-I1/8ETA)*L0GI CTOFF+ALPHA/ 

*  BETA-TAMBIK-l I  )/( Tf K-ll +ALPHA/BETA- 

*  IK-llll 
TtK»=TOFF 
STATUS{K)=«OFF« 

IF  ICTDAYtK)  .GT.  ( I*INTLEN+TIMEO) I  THEN 

TIK»=TAMB(K-11-ALPHA/BETA+{T(K-1)+ALPHA/BETA 

*  -TAMBCK-1J  l*EXPI-BETA*CI*INTLEN  +  TIMEO  - 

*  CTOAY(K-lll) 
PREVST=»ON* 

GO    TO    100 
END  IF 
ENOIF 

TAMB«K)=85t(TPEAK-85l*SIN«.00V36332*CTDAY<KI) 
K=K+1 
T(KI=TAM3tK-l)+(TIK-l)-TAMB{K-ll)*EXP(-BETA* 

*  CIOINTLEN+TIMEO-CTDAYCK-IM) 
PREVST='OFF« 

C 

C    CONTROL  IS  TRANSFERRED  TO  THE  ENO  OF  LOOP  100  TO  START 

C    THE  hEXT  HALF-HOUR  PERIOD. 

C 

GO  TO  100 

c 

C    SECTION  130  HANDLES  THE  EXTREME  CASE  WHERE  THE  AMBIENT 

C    TEMPERATURE  IS  NOT  SUFFICIENT  TO  PRODUCE  HEATING  AND 

C    THE  A/C  IS  NOT  SUFFICIENT  TO  PRODUCE  COOLING.  IT  IS 

C    ASSUMED  THAT  THE  A/C  STAYS  OFF  BECAUSE  CONDITIONS 

C    ARE  SUCH  THAT  THE  HOUSE  WILL  REMAIN  BELOW  TON. 

C 

130       K=K+1 

WRITE(6t*>  'WENT  TO  130' 

CTOAY(K)=CTDAY(K-U  +  INTLEN 

STATUSlK»='OFF' 

T(KI=TAMB(K-l)+lT«K-l)-TAMB(K-ll)*EXPt-BETA$ 

*  INTLEN) 
100    CONTINUE 

RETURN 
END 
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*  THIS  IS  NEOCON  USED  WITH  NEWSINE 

<■    SUBROUTINE  NOECON  DETERMINES  THE  TRANSITION  TIMES  FOR 

*  THE  CONTROLLED  CASE  WHERE  7.5  MINUTES  OF  RUNNING  TIMF 

*  ARE  TAKEN  AWAY  FROM  EACH  30  MINUTES  OF  RUNNING  T  IMF  ' 

SUBROUTINE  NEOCONf ALPHA, 1ETA ,T , STATE , TON , TOFF , J, IUAY , 

"  TRA!N<5,TEMPfNUMHRS,TPEAK,TAM3,TI«E0, 

*  DSEEDI 

9 

•  ARGUMENT  EXPLANATIONS:  "** 

•  ALPHA  -  COOLING  COEFFICIENT  WITH  A/C  ON  (DEGF/MIN) 

*  (INPUT)  '• 
3ETA  -  HEATING  COEFFICIENT  (l/MIN).  (INPUT 

*  IT:TpNITTIMrTyEMPePATU,<E  °F  THF  SYSTEM.  (INPUT) 
TON  -  ;»^I^.JT*:E...f^./0!f!  °F  ™F  A^.  (INPUT, 

(INPUT) 


TEMPERATURE  AT  WHICH  THE  A/C  TURNS  ON.  (INPUT) 
TOFF  -  TEMPERATURE  AT  WHICH  THE  A/C  TURNS  OFF. 
(INPUT) 

*  J  -  THE  NUMBER  OF  ON/OFF  TRANSITIONS  MADE  IN  A  PPRICD 

PERIOD  OF  SPECIFIED  LENGTH.  (OUTPUT) 

*  ^^tTm^^m  °S    LFNGTH  J  WHICH  "STAINS  TRANSITION 

*  LENGTH!  ^OUT^r'  FCR  ™E  PERI0°  ^  SPECI"^ 

I  TRAwl:  VeCT°R  °F  LFNGTH  J  WHICH  CONTAINS  THE  STA^c 

*  (ON/UFF)  OF  THE  SYSTEM  AFTER  THE  CORRESPONDING 

*  TRANSITION  IN  TOAY.  (OUTPUT)  "^ur.blNG 

*  TEMP  -  A  VECTOR  THAT  GIVES  THE  TEMPERATURE  CF  THE 

SYSTEM  AT  EACH  TRANSITION.  (OUTPUT) 

^DESIREr'lNPUT,80^3  F°"  "^    ««"«""■«  »« 

*  TIMEO  -  INITIAL  TIME  FOR  TRANSITIONS.  (INPUT) 

*  TPEAK  -  PEAK  DRIVING  TEMPERATURE.  (INPUT) 
TAMB  -  VECTOR  OF  DRIVING  TEMPERATURE.  (OUTPUT) 

:     ose^iTiir?i^rf?NPFuc?,— ti-  ksraa™  0f 


REAL 


NUMHRS, TPEAK, TIMECTION.R  >»TAWBI*>, 

DOUBLE  PRECISION  DSEED 
INTEGER  J 
CHARACTERS")  STATE,  TRANS!*) 
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*  VARIABLE  EXPLANATION: 

*  TION  -  VARIABLE  USED  TO  KEEP  TRACK  OF  ON  TIME. 

*  R  -  RANDOM  NUMBER  BETWEEN  0  ANO  I. 


J=l 

TEMP(J1=T 

TRANS(J)=STATE 
TDAYU)=TIM£0 
C 

C    GENERATE  THE  AMOUNT  OF  ON  TIME  ALREADY  ON  THE  LOAD 

C    LEVELER. 

C 

CALL  GGUBS(DSEED,1,R) 

TION=R*30.0 
C 

C    THIS  IF  STATEMENT  STARTS  THE  LOOP  BY  CHECKING  IF  THE 
C    TIME  HAS  EXPIRED. 
C 
100    IF  ITDAYJJ)  .GE.  ( 60»NUMHRS+30+T IME0J1  GO  TO  150 

TAMB(J)=85-KTPEAK-35)*SIN(  •  0  0<f36332<'TCAY  I  J  )  ) 
C 

C    THE  NEXT  THREE  IF  STATEMENTS  CHECK  IF  THE  SYSTEM  IS  IN 
C    AN  EXTREME  SITUATION,  ANC  IF  SO,  CALLS  THE  APPROPRIATE 
C    SUBROUTINE  AND  STARTS  THE  LOOP  OVER. 
C 

IF  IALPHA/3ETA  .LE.  ( T AM3 ( J l-TOFF I  .AND.  TAMBCJI 

*  .GT.  TON)  THEN 

CALL  N6ONUCIALPHA,BETA,TGN,TAMe,J,T0AY,TRANS,TEMP, 

*  TION,T.PEAK) 
GO  TO  100 

ENUIF 

IF  (TAMB(J)  .LE.  TON  .AND.  ALPHA/BETA  .GT. 

*  ITAMB(JI-TOFFI)  THEN 

CALL  NOHEAT  [ALPHA,  BETA, TOFF, TAMBU),  J,  TOAY, TRANS, 
"  , TEMPI 

GO  TO  100 
ENDIF 

IF  (ALPHA/BETA  .LE.  ( T AM3 ( J )-TDFF I  .AND.  TAX"(J)  ,Lf. 
«    TOM  THEN 

CALL  ABEXT( ALPHA, BETA, TAMBI J) , J, TO AY, TRANS, TEMP  I 
GO  TO  100 
ENDIF 
C 

C    THESE  STATEMENTS  DETERMINE  THE  TRANSITIONS  If  THF 
C    SYSTEM  IS  IN  NORMAL  OPERATIO?^. 
C 
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IF  (TRANSIJI  .EQ.  'ON')  THEN 
C 

C    IF  THE  SYSTEM  IS  ON,  CHECK  TO  SEE  IF  IT  IS  TIME  TQ 
C    CUNTROL.  IF  SO,  TAKE  APPROPRIATE  ACTION. 
C 

IF  (TION  .LT.  7.5>  THEN 

TRANS! J)='OFF" 

TRANS(J+l)='ON' 

TOAYt J+l)=TDAY«J»+7.5-TION 

TEMP(J+1)=TAM8(J  )  +  (  TEMPI  J  )-TAMEH  J  )  I *EXP(-3ETA* 

•  (7.5-TION)) 
TI0N=7.5 
TAM8<J+1)=85+(TPEAK-85)*S IN (.004363 32* 

<■  TOAYIJ+ll) 

J  =  J  +  1 

IF  (ALPHA/BETA  .LE.  (TAM9I J )-TOFF ) )  GO  TO  100 
ENDIF 
C 

C    DETERMINE  NORMAL,  UNCONTROLLED  COOLING  TRANSITIONS. 
C 

TOAYI J+l)=TDAY(JI-(  1/BETA  )->LOG  (  (T0FF+ALPHA/8ETA- 

•  TAMB(J))/(TEMP(J )  +  ALPHA/P,ETA-TAMB  <J>  I » 
TRANS( J+1)='0FF' 

TEMPI J+1)=T0FF 
TION=TION+TDAY(  J  +  D-TDAYI  J) 
J  =  J+l 
C 

C    CHECK  IF  THE  LAST  TRANSITION  EXCEEOED  THE  NEtD  FC^ 
C    CONTROL,  CORRECT  FOR  THE  START  OF  CONTROL,  AND  PROCFfO 
C    TU  CONTROL  STATEMENTS. 
C 

IF  JIICN  .GE.  30.0)  THEN 

TDAY«JI=T0AY(JI-(TI0N-30.01 

TRANS( JJ='ON' 

TEMP(J»=TAMB( J-l l-ALPHA/BETA+l TEMP  I J-l ) +ALPHA/ 

•  3ETA-TAMB( J-l ) ) *EXP ( -BETA* I TDAY( J I-TOAY I J-l 

•  n ) 

TAMBI  J)  =  85  +  «TPEAK-35)*SIN(.0O<,36332*TDAY(J) ) 
IF  ITOAY(J)  ,GT.  (60*NUMHRS+30+TIVEO>) 

•  GO  TO  150 
TION=0.0 

GO  TO  100 
ENDIF 
ELSE 
C 

C    DETERMINE  NORMAL  HEATING  PHASE  TRANSITIONS. 
C 

TDAYl J+1I=T0AY( J)-( l/=ETA )*LOG I (T0N-TAM3I J) »/ 

•  (TEMPI JI-TAMR1JI )) 
TRANSIJ+1)=,0N' 
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TE*PC J+1)=T0N 
J=J  +  1 

ENDIF 
C 

C    THIS  STATEMENT  STARTS  THE  LOOP  OVER  AGAIN 
C 

SO  TO  100 
150    TAMB(J»  =  85+«TPEAK-85)'»SIN(  ,004  36332*TDAY  IJ  )  ) 

RETURN 

ENO 
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«  THIS  IS  NAVG  USED  OIURNALLY  VARYING  DRIVING  TEMPERATURE. 

9 

•  SUBROUTINE  NAVG  TAKES  THE  ARRAYS  OF  TRANSITION  TIMES, 
o  STATES  AND  TEMPERATURES  AND  RETURNS  THE  AVERAGE  POWER 
=»  AND  THE  AVERAGE  TEMPERATURE  FOR  EACH  N-MINUTE  PERIOD. 
"  THIS  IS  DONE  FOR  A  SPECIFIED  NUMBER  OF  HOURS. 

f 

SUBROUTINE  NAVG  ( TDAY, TRANS, TEMP ,NUM, ALPHA, SETA, N,PWR 

•  ,TEMPAV,TAM8,NUMHRS,TIMEO) 

<s  ARGUMENT  EXPLANATIONS: 

•  TDAY  -  A  VECTOR  CONTAINING  TRANSITION  TIMES  (IN  MIN- 

•  UTESJ  IT  MUST  CONTAIN  AT  LEAST  ONE  TRANSITION 

•  PAST  THE  SPECIFED  LENGTH  OF  THE  PERIOD. 

•  (INPUT! 

<■  TRANS  -  A  VECTOR  OF  THE  SAME  LENGTH  AS  TDAY  WHICH 

f  CONTAINS  THE  STATE  (ON/OFF)  OF  THE  SYSTEM 

•  AFTER  EACH  CORRESPONDING  TRANSITION.  (INPUT) 

•  TEMP  -  A  VECTOR  CONTAINING  THE  TRANSITION  TEMPERA- 
"  TURES  (INPUT) 

o  NUM  -  THE  NUMBER  OF  ENTRIES  INTO  VECTORS  TDAY  AND 

TRANS.  (INPUT) 

<■  ALPHA  -  COOLING  COEFFICIENT  (DEGF/MIN).  (INPUT) 

»  1ETA  -  HEATING  COEFFICIENT  (l/MIN).  (INPUT) 

"  N  -  THE  LENGTH  (IN  MINUTES)  OF  THE  INTERVAL  CF  Ifi- 

»  TEREST  EXAMPLE:  N=5  TO  DETERMINE  AVERAGE  POWER 

•  FOR  EACH  5-MINUTE  PERIOD.  (INPUT) 

'■■  PWR  -  A  VECTOR  WHICH  CONTAINS  THE  FRACTIONAL  AMOUNT 

•  OF  TIME  DURING  EACH  N-MINUTE  INTERVAL  WHICH 

•  THE  A/C  IS  ON  1  1=N  MINUTES;  0=0  MINUTES). 

•  LENGTH  IS  600/N.  (OUTPUT) 

»  TEMPAV  -  A  VECTOR  WHICH  CONTAINS  THE  AVERAGE  TEMP- 

•  ERATURE  FOR  EACH  N-MINUTE  INTERVAL. 

•  (OUTPUT) 

•  TAMfS  -  VECTOR  OF  THE  DRIVING  TEMPERATURE  AT  EACH 

•  TRANSITION.  (INPUT) 

"  NUMHRS  -  NUMBER  OF  HOURS  FOR  WHICH  AVERAGES  APE 

•  DESIRED.  1  INPUT) 

•  TIMEO  -  INITIAL  TIME  FOR  OATA.  (INPUT) 


REAL  TDAY(=?),PWR(*),PTCAY(600),ALPHA,aETA,TEMP(*), 
f         T  (  600  ),  TEMP  AV(*>,  AVE,  TAMfS  (*)  ,  N,  I  ,  NUMHRS  ,TIM£0 
CHARACTER*!*)  TRANSCI 
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CHARACTERS  STATE 
INTEGER  J,K,NUM,LOOP 

n 

*  VARIABLE  EXPLANATION: 

■>       STATE  -  VARIABLE  TO  KEEP  TRACK  OF  CURRENT  STATE  OF 
■»  THE  SYSTEM  AS  THE  SUBROUTINE  GOES  THROUGH 

*  THE  TRANSITIONS  IN  THE  SPECIFIEO  PERICO. 

*  J  -  VARIABLE  TO  COUNT  WHICH  TRANSITION  AND  STATE  OF 
»  TDAY  AND  ARE  OF  CURRENT  INTEREST  TO  SUBROUTINE. 

*  PTDAY  -  ARRAY  USED  TO  STORE  VALUES  FROM  TDAY  TO 

*  DETERMINE  THE  DESIRED  VALUE  FOR  PWR. 

*>  AVE  -  INTERMEDIATE  VARIABLE  FOR  DETERMINING  THE 

*  AVERAGE  TEMPERATURE  IN  EACH  N-MINUTE  INTERVAL. 

*  I  -  VARIABLE  TO  KEEP  TRACK  OF  THE  CURRENT  INTERVAL 

*  OF  TIME. 

*  LOOP  -  GENERAL  PURPOSE  LOOP  COUNTER. 

INT1=INT (NUMHRS^aO/N) 

DO  100  LOQP=l,INTl 
PWR(LO0P)=O 
TEMPAV(L00P)=0 
100    CONTINUE 

DO  150  L00P=1,NUM 

PTDAY(LOOP)=TDAY(LOCPJ 
T(L0OP)=TEMP(L00P) 
150         CUNTINUE 

J=l 

STATE=TRANS( Jl 
C 

C    EACH  LOOP  OF  DO  LOOP  200  REPRESENTS  ONE  N-MINUTE 
C    INTERVAL. 
C 

I  =  N  +  TIMEO 

K  =  1 
200    IF  II  .LE.  (NUMHRS*60+TIME0) )  THEN 
C 

C    STATEMENT  500  STARTS  THE  NEXT  N-MINUTE  INTERVAL  IF  THE 
C    THE  CURRENT  TRANSITION  IS  ESSENTIALLY  AT  THF  ENO  OF  THE 
C    CURRENT  INTERVAL. 
C 

500       IF  ( (  I-PTDAY( J) )  .LT.  0.1E-70J  GO  TO  190 
C 

C    THE  FOLLOWING  IF  STATEMENT  SORTS  THE  TRANSITIONS  AC- 
C    CORDING  TO  WHETHER  THE  HEATING  OR  COOLING  MOOEL  IS  AP- 
C    PROPRIATE. 
C 
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IF  (STATE  .EQ.  'ON')  THEN 
C 

C    THIS  IF  STATEMENT  DETERMINES  THE  APPROPRIATE  TIME  PER- 
C    IOD  TOCONSIDER  DETERMINED  8Y  THE  TIME  OF  THE  NEXT 
C    TRANSITION.  IF  THE  TRANSITION  IS  PAST  THE  END  OF  THE 
C    CURRENTN-MINUTE  INTERVAL  THEN  THE  TIME  PERIOD  USED  IS 
C    TO  THE  END  OF  THE  CURRENT  N-MINUTE  INTERVAL. 
C 

IF  IPTDAYCJ+1)  .GT.  I)  THEM 

PWR(K1=PWR(KI+(I-PTDAY( J))/N 

AVE=TAMBI J ) -ALPHA/SET  A- ( (T( J)+ALPH A/BET A- 

*  TAMa(J) l/( eETA*l I-PTDAY(J) ) ) )»( EXP (-SETA* 

*  CI-PTDAYCJ)) >-l) 
TEMPAV(K)=TEMPAV(K)+AVE*( I-PTDAY(J) ) 

TI J)=TAMB< J)-ALPHA/RETA+(T(J)+ALPHA/8ETA- 

*  TAMB(J))*EXP(-BETA*(I-PTDAY( J))) 
PTDAYIJ)=I 

ELSE 

PWR(KI=PWP[K)-MPTDAY(J+1)-PTDAY(JI >/N 
AVE=TAMBt J)-ALPHA/3ETA-I(T( Jl+ALPHA/EETA- 

*  TAM91J) )/( eETA*(PTOAY(J+l)-PTOAY( J) ) ) I* 

*  (EXP(-BETA*(PTDAY( J+ 1 )-PTDAY ( J ) I )-l) 
TEMPAV(K)=TE*!PAV(K)+AVt*(PTDAY(J+l)-PTOAY(J) 

*•  ) 

J=J+l 

STATE=TRANS(  J) 
GO    TO    500 
ENDIF 
ELSE 
C 

C  THIS    IF    STATEMENT    IS    ANALAGOUS    TO    THE    PREVIOUS     IF 

C  STATEMENT    EXCEPT    THE    A/C    IS    CURRENTLY    OFF. 

C 

IF     (PTDAYU+1)     .GT.     I)    THEN 

AVE=TAM8U)-{  (T(  J  l-TAMB  {  J  )  ) /(  SETA->(  I-PTOAY 

*  IJI ) ))*( EX P(-flETA« I I-PTOAY t J) ) )-!> 
TEMPAV(K)  =  TEMPAV(K)+AVE=M I-PTDAY(J) ) 
TtJ)  =  TAM8(  Jl  +  ITC  J)-TA,MB(  J)  )*EXP  (-a,ETA» 

*  (I-PTDAY(J)) ) 
PTDAY(J)=I 

ELSE 

AVE  =  TAM8(  J)-(  (T{  J)-TAMBI  J  )  )/ (  3ETA<M  PTDAY 

*  (J+1)-PTDAY(J)  ))>*<EXP(-3ETA*(PTCAY(J+1) 

*  -PTDAY(J) ) )-l) 
TEHPAV(K)=TEMPAV(KI+AVE*(PTDAY( J+l ) -PTQAY (J ) 

*  ) 
J=J  +  1 

STATE=TRANS(J) 
GO  TO  500 

ENDIF 
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ENDIF 
190       TEMPAV1K)=TEMPAV(K)/N 

K  =  K+l 

I  =  I+N 

GO  TO  200 
ENDIF 
RETURN 
END 
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*  THIS  IS  THE  VERSION  OF  NOCOOL  USED  WITH  OIURNALLY 

*  VARYING  DRIVING  TEMP. 

*<>  !>■>■>■><■<■»■>#•>*>>«=>•>>»  *<»o>>0«>  <■<■<■*«<■=>  "j**  =>***«<■<■«■>>>  "»"><•«*«*=>  <■«***■::* 

■>    SUBROUTINE  NOCOOL  DEALS  WITH  THE  EXTREME  CASE  WHERE 

<■    THE  AMBIENT  TEMPERATURE  IS  SUFFICIENT  TO  PRODUCE  HEAT- 

*  ING  THE  OESIRED  INDOOR  TEMPERATURE  eUT  THE  A/C  IS 

*  NOT  SUFFICIENT  TO  PRODUCE  COOLING. 

.^yrtS^SO^^W-V-.^rtyOS^^ft^^^ft^^i;::^::"^^  fc*sJ:iS^<l*^l3ll>*>«I******i>*i'.**** 

SUBROUTINE  NOCOOLI ALPH A»BETA tTON,TAMB, Jt TDAY» TRANS , 
*  TEMP.TPEAK) 

•> 
a 

*  ARGUMENT  EXPLANATIONS: 

*  ALPHA  -  COOLING  COEFFICIENT  WITH  A/C  ON  (OEGF/MIN). 

*  IINPUT) 

*  BETA  -  HEATING  COEFFICIENT  U/MIN).  IINPUT) 

*  TON  -  TEMPERATURE  AT  WHICH  THE  4/C  TURNS  ON.  (INPUT) 

*  TAM8  -  DRIVING  TEMPERATURE  FROM  OUTSIDE  THE  SYSTEM. 

*  (INPUT) 

*  J  -  THE  NUMBER  OF  ON/CFF  TRANSITIONS  MADE  IN  A  SPEC- 
'S IFIEO  PERIOD.  (INPUT/OUTPUT) 

*  TDAY  -  VECTOR  OF  LENGTH  J  WHICH  CONTAINS  TRANSITION 

*  TIMES  (IN  MINUTES)  FOR  THE  11-HOUR  PERIOD. 

*  (INPUT/OUTPUT) 

*  TRANS  -  VECTOR  OF  LENGTH  J  WHICH  CONTAINS  THE  STATS 

*  (ON/OFF)  OF  THE  SYSTEM  AFTER  THE  CORRES- 

»  PONDING  TRANSITION  IN  TDAY.  (OUTPUT/OUTPUT) 

*  TEMP  -  A  VECTOR  THAT  GIVES  THE  TEMPERATURE  OF  THE 

*  SYSTEM  AT  EACH  TRANSITION.  (INPUT/OUTPUT) 

*»***»**«**=:.0*****«.****«OS3j3 45. -,■=?:■*< tHHflf  .J*Si««<i !>««*«**««  4«>Ci4#sj:<i 

REAL  ALPH  A  f  SET  A. TOAYI * ) »TONtTEMP ( * )  ,  TAM9  (*)  t  TPEAK 
INTEGER  J 

CHARACTER*!*)  TRANS!*) 
C 

C    THIS  IF  STATEMENT  TAKES  CARE  OF  THE  CASE  WHERE  THE  A/C 
C    IS  INITIALLY  OFF. 
C 

IF  (TRANS(J)  .EQ.  'GFFM  THEN 
J  =  J  +  1 

TDAY(J)  =  TDAY(J-l)-(  1/3ETA  )=»LOG  (  (  TON-TAMB(  J-l )  ) 
»       /(TEMP( J-l)-TAMB(J-l)) ) 
TEMP(J)=TON 
TRANS! J)=«ON' 

TAMBUJ=85+(TPEAK-85)>*SINI.OO*36332*T0AY<J)  ) 

END  IF 
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c 

C    THE  A/C  IS  ASSUMED  TO  RUN  ALL  OF  THE  TIME.  THIS  SECTION 
C    MAKES  THE  NECESSARY  STATUS  UPDATES  AT  THE  END  OF  EACH 
C    HALF  HOUR.  THEN  CONTROL  IS  RETURNED  TO  THE  MAIN  PROGRAM 
C    TO  SEE  IF  THE  CONDITIONS  HAVE  CHANGED. 
C 

J=J+1 

TDAYI JI=TCAYIJ-l)+30 

TEMP IJ)=TAM3C J-l I- ALPHA/3ETA+C TEMP (J-D+ALPH A/BET A- 
*    TAM3I J-l) l*EXPt-eETA»30) 

TRANSIJM'ON' 

RETURN 

END 
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APPENDIX  M-III 


LISTINGS  OF  COMPUTER  PROGRAMS 

THAT  CAN  BE  USED  WITH  EITHER  TYPE 

OF  DRIVING  TEMPERATURE 


*«e««««*<^a**O<i*aO««4*4O«i>«3  44<>O#^4***««***ai>e«9«««««c««S0 

•  SUBROUTINE  NOHEAT  TAKES  CARE  OF  THE  EXTREME  CASE  WHERE 

*  CONDITIONS  ARE  INSUFFICIENT  TO  PRODUCE  HEATING  BUT  THE 

•  A/C  IS  SUFFICIENT  TO  PROCUCE  COOLING. 

* 

SUBROUTINE  NOHEAT ( ALPHA, BETA t TOFF ,TAMB, J ,TDAY , TRANS, 

*  TEMP) 

* 
* 

:>■:  =><i^i  :;::;■  <:^;>^^*<irt<:  :>i>*^0<!^0  A^^:;:<::;t^=;^>  ;:::;::;:,;::>:>  ^t;:O^'>^::^^0=:^=  :>->^^:=0-/ -;::-  ■- 

9    ARGUMENT  EXPLANATIONS: 

*  ALPHA  -  COOLING  COEFFICIENT  WITH  A/C  ON  tOEGF/MIN). 

*  (INPUT) 

•  BETA  -  HEATING  COEFFICIENT  (l/MIN).  (INPUT) 

•  TOFF  -  TEMPERATURE  AT  WHICH  THE  A/C  TURNS  OFF. 

•  (INPUT) 

*  TAMB  -  DRIVING  TEMPERATURE  FROM  OUTSIDE  THE  SYSTEM. 

*  (INPUT) 

*  J  -  THE  NUMBER  CF  ON/CFF  TRANSITIONS  MADE  IN  A  SPEC- 
'S" IFIED  PERIOO.  (INPUT/OUTPUT) 

■»       TDAY  -  VECTOR  OF  LENGTH  J  WHICH  CONTAINS  TRANSITION 

•  TIMES  (IN  MINUTES)  FOR  THE  11-HOUR  PERIOD. 

•  (INPUT/OUTPUT) 

*  TRANS  -  VECTOR  OF  LENGTH  J  WHICH  CONTAINS  THE  STATE 

*  (ON/OFF)  OF  THE  SYSTEM  AFTER  THE  CORRESPONO- 

•  IMG  TRANSITION  IN  TDAY.  (INPUT/OUTPUT) 

*  TEMP  -  A  VECTOR  THAT  GIVES  THE  TEMPERATURE  OF  THE 

•  SYSTEM  AT  EACH  TRANSITION.  (INPUT/OUTPUT) 

O 

REAL  ALPHA, SET A, TDAYO), TOFF, TEMP  I* J , TAMB 

INTEGER  J 

CHARACTER*!*)  TRANS(*) 
C 

C    THIS  IF  STATEMENT  TAKES  CARE  OF  THE  SITUATION  WHERE  THF 
C    A/C  IS  INITIALLY  ON. 
C 

IF  (TRANS(J)  -EQ.  'ON')  THEN 
J  =  J+I 
TDAY(J)=TDAY(J-l)-( 1/8ETA )"LOG( ( TOFF+ALPHA/GETA- 

*  TAM3l/(TEMP(J-l) +ALPHA/PeT A-TAM3) ) 
TRANS(J)=,OFF' 

TEMP( J)=TOFF 
ENDIF 
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C    THE  A/C  IS  ASSUMED  TO  STAY  OFF.  STATUS  UPDATES  ARE  MADE 
C    AT  THE  END  OF  EACH  HALF  HOUR  AND  CONTROL  IS  RETURNED 
C    TO  THE  MAIN  PROGRAM  TO  SEE  IF  CONDITIONS  HAVE  CHANGED. 
C 

J=J+l 

TDAYIJ)=TDAY<J-l»+30 

TEMP(J)=TAMB+ITEMP< J-l J-T AM3 )*EXP l-BETA«30) 

TRANS(J)='OFF' 

RETURN 

END 


■M-85 


o 

1 

*  SUBROUTINE  ABEXT  HANDLES  THE  EXTREME  CASE  WHERE  CONDT- 

*  TIONS  ARE  NOT  SUFFICIENT  TO  PRODUCE  HEATING  AND  THE  A/C 

*  IS  NOT  SUFFICIENT  TO  PRODUCE  COOLING. 

<> 

9 

SUBROUTINE  ABEXT  I  ALPHA  .BET A»TAM3, J,  TD AY, TRANS t  TEf^P  ) 

*  ARGUMENT  EXPLANATIONS: 

«■       ALPHA  -  COOLING  COEFFICIENT  WITH  A/C  ON  (OEGF/MINI. 

*  (INPUT) 

*  BETA  -  HEATING  COEFFICIENT  (1/HINJ.  (INPUT) 

*  TAMB  -  TEMPERATURE  DRIVING  FORCE  FROM  OUTSIDE  THE 

SYSTEM.  (INPUT) 

*  J  -  THE  NUMBER  OF  ON/CFF  TRANSITIONS  MADE  IN  THE 

*  SPECIFIED  PERIOD.  (INPUT/OUTPUT) 

*>  TDAY  -  VECTOR  OF  LENGTH  J  WHICH  CONTAINS  TRANSITION 

*  TIMES  (IN  MINUTES)  FOR  THE  ll-HOUR  PERIOO. 
(  INPUT/OUTPUT) 

*  TRANS  -  VECTOR  OF  LENGTH  J  WHICH  CONTAINS  THE  STATE 

*  (ON/OFF)  OF  THE  SYSTEM  AFTER  THE  CORRESPONG- 

*  ING  TRANSITION  IN  TDAY.  ( INPUT/OUTPUT  I 

*  TEMP  -  A  VECTOR  THAT  GIVES  THE  TEMPERATURE  OF  THE 

*  SYSTEM  AT  EACH  TRANSITION.  (INPUT/OUTPUT) 

S?l><*=3*'<3S>!S*>5?»»3>*>Si  &9*4  **«**  $**>*SS#»3lS*lS0*$S>*S*  *$*>*** <!#I?<!*>S*S**:**S£  $6&4 

REAL  ALPHA,BETAtTOAY(*»),TEMP('»),TAMS 
INTEGER  J 

CHARACTER*^*)  TRANS(*) 
C 

C    THIS  IF  STATEMENT  TAKES  CARE  OF  THE  CASE  WHERE  THE  A/C 
C    IS  INITIALLY  ON. 
C 

IF  (TRANS(J)  .EO.  'ON')  THEN 
J=J+1 

TOAYI J)=TDAYIJ-l)+l 
TRANS(J)=,OFF" 

TEMPI  J  )=TAHB- ALPHA/ EETA  +  (  TEMPI  J-D  + ALPHA/BET  A- 
*       TAMR)*EXP(-3ETA) 
ENDIF 
C 

C    THE  A/C  IS  ASSUMED  TO  BE  OFF  FOP  A  PERIOD  OF  30  MIN- 
C    UTES.  THEN  THF  STATUS  IS  UPDATED  AND  CONTROL  IS  RE- 
C    TURNED  TO  THE  CALLING  PROGRAM. 
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J=J+1 

TDAYt  J)=TDAYU-lJ  +  30 

TRANS(J)=,OFF' 

TEMPt  J)  =  TAM8+(  TEMPU-1  I-TAMB  J*EXP<-aETA»>30» 

RETURN 

END 


*  SUBROUTINE    CALC    CALCULATES    THE    FOLLOWING    STATISTICS    FOR 

*  A    GIVEN    LOAD    CURVE:    SIMPLE    AVERAGE;    MINIMUM;    MAXIMUM; 

*  variance;    ANO    STANDARO    DEVIATION.    THE    RESULTS    ARE 

*  RETURNED    IN    THE    5    MEMBER    VECTOR,    STATS. 

C  «J  =>Crt<S  flrSCft  SO**  «««  sj  $«<>«  *;Ji>  :J  *  :S  ■}<=■.■;.  *0-"S  ?■■■?■■  :>;!■  A  4  .',<  «=>!>;':  *  sS  *<:  ^!  ?<:«:■:  <l  ^  S":  r: 


SUBROUTINE    CALC I  CURVE, NUM, STATS > 


«■         ARGUMENT    EXPLANATION: 

»  CURVE   -    THE    VECTOR    THAT    IS    COMPRISED    OF    THE    POINTS 

*  THAT    MAKE    UP    THE    FUNCTION    OF    INTEREST. 

*  (INPUT) 

*  NUM    -    THE    NUMBER    OF    ELEMENTS    IN    CURVE.     (INPUT) 

*  STATS   -    THE    VECTOR    THAT    RETURNS    THE    RESULTING    STAT- 

*  ISTICS.     (OUTPUT) 

<5 

REAL    STATS(*),CURVE(=*I  ,SUM»MIN  ,M4X,  AVG,  VAR,  SD,0 

INTEGER    NUM 

SUM=0 

Q=0 

MIN=CURVE<1) 

MAX=CURVE(l) 
C 

C  DO  LOOP  10  DETERMINES  THE  MAXIMUM  ANO  MINIMUM  OF  THE 
C  CURVE  ANO  SUMS  UP  THE  ELEMENTS  IN  THE  CURVE  TO  LATER 
C  DETERMINE    THE    AVERAGE. 

C 

00    10    1=1, NUM 

SUM=CURVE(I  l  +  SUM 

IF(CURVEII)     .GT.    MAX)     MAX=CURVE(I) 
IFICURVE(I)     .LT.    MIN)    MIN=CURVE(I) 
10  CUNTINUE 

AVG=SUM/NUM 
C 

C         00    LOOP    20    SUMS    UP    THE    TERMS    FOR    DETERMINING    SAMPLF 
C  VARIANCE. 

C 

DO    20    1=1, NUM 

0=0+1  CUR VE1 I) -AVG 1**2 
20  CONTINUE 

VAR=D/(NUM-1) 

SD-SQRTIVAR) 
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c 

C    THE  NEXT  FTVE  STATEMENTS  ASSIGN  THE  APPROPRIATE  STAT- 

C    ISTIC  TO  THE  APPROPRIATE  POSITION  IN  STATS. 

C 

STATS(U=AVG 

STATSm  =  MIN 

STATSC3)=MAX 

STATS<4)=VAR 

STATS(5)=SD 

RETURN 

END 
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5 

0 

*  SUBROUTINE  AV5PWR  CALCULATES  THE  AVERAGE  POWER  CONSUMED 
o  IN  THE  INTERVALS  OF  DESIRED  LENGTH  BY  TAKING  THE  POW^R 

*  CONSUMED  IN  N-MINUTE  INTERVALS  AND  AVERAGING  THESE 
3  FIGURES  FOR  LONGER  PERIODS  OF  TIME. 

« 

SUBROUTINE  AVEPWRCPWR. LENGTH ,N,P AVG,NUMKRS ) 
■> 
f 

«■    ARGUMENTS: 

*  PWR  -  VECTOR  THAT  CONTAINS  THE  AVERAGE  POWER  FOR  THE 

*  N-MINUTE  INTERVALS.  (INPUT) 

*  LENGTH  -  LENGTH  OF  INTERVAL  THAT  AVERAGE  POWER  IS 

*  DESIRED  (INPUT) 

<■       N  -  LENGTH  OF  THE  INTERVAL'  USED  IN  PWR.  (INPUT! 

*  PAVG  -  VECTOR  THAT  RETURNS  DESIRED  AVERAGE  POWER  FOR 

*  THE  DESIRED  LENGTH  INTERVALS.  (INPUT) 

*  NUMHRS  -  NUMBER  OF  HOURS  FOR  WHICH  DATA  IS  SUPPLIED. 

*  (INPUT) 

o 

o 

REAL  PWRl-->),PAVG(<'),NUMHPS 
INTEGER  LENGTH, N,NUMfC, COUNT 
NU.H=NUMHRS*60/LENGTH 
COUNT=LENGTH/N 
C=C 

00  50  1=1, NUM 
PAVG(I)=0 
50     CUNTINUE 
C 

C    DC  LOOP  100  CALCULATES  THE  AVERAGE  POWER  CONSUMPTION 
C    FOR  THE  NUMBER  OF  INTERVALS  OF  OESIRED  LENGTH  IN  THF 
C    SPECIFIED  TIME  PERIOD. 
C 

DO  100  1=1, NUM 
C 

C    00  LOOP  200  CALCULATES  THE  AVERAGE  POWER  IN  EACH  OF  THE 
C    INDIVIDUAL  INTERVALS. 
C 

DO  200  K  =  l, COUNT 
C=l  I-1)=>C0UNT+K 
PAVG(I)=PAVG( I)+PWR(C) 
ZOO       CONTINUE 

PAVG( I)=PAVG(II/COUNT 
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100         CONTINUE 
RETURN 

END 
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*  THE  FUNCTION  OF  SUBROUTINE  RANDOM  IS  TO  GENERATE  THF 

*  RANDOM  STARTING  CONDITIONS  FOR  M  HOUSES. 

___      SUBROUTINE  RANDOM!  M,  OSEED.NR  ,  TOFF,  TON,  START, T  I > 
«• 

*  ARGUMENT  EXPLANATIONS:  ^W*WWM 

•  M  -  NUMBER  OF  HOUSES.  (INPUT) 

•  OSE6D  -  SEED  NUMBER  FOR  GENERATING  RANDOM  NUMBERS. 

I  INPUT) 

•  NR    '    tTmI?  UHPmTm    WM8FRS    T°    BE    G^ERA'ED    AT    A 
»  TOFF   -    TEMPERATURE    AT    WHICH    \/C    TURNS    OFF.     (INPUT  I 

I  I?ART,irPE^rTTn6    AT    WHICH    A/C    TUR"'S    °»'       INPUT^ 

•  START!*)    -    VECTOR    OF    STARTING    STATES     (ON/OFF)     FOR 

THE  M  HOUSES.  (OUTPUT) 

*  TI(O)  -  VECTOR  OF  STARTING  TEMPERATURES  FOR  THP  H 

HOUSES.  (OUTPUT) 


■3 


t 

c 

c 


DOUBLE  PRECISION  DSEED 
CHARACTER  START(»)=S3 
INTEGER  NR 
REAL  R!1000),TI(*), TOFF, TON 

SUBROUTINE  GGUBS  IS  CALLED  TO  GENERATE  RANDOM  NU-9ERS. 
CALL  GGUBS(DSEED,NR,R) 


C 

C    BEKS°?0  i«TrNETHZH!T^f^°USLV  SENERATEO  RANDOM  NU«- 

C    THESmThoSsEs!     "  ^"^  "*"  ,0N/°FF'  T°  E«"  °F 
C 

DO  IOO  I=1,M 

IF(R(  I)  ,f,E.  .50)  THEN 

START(I)=«ON« 
ELSE 

START(I)='OFF' 
ENDIF 
100    CONTINUE 
C 
C    CALL  GGUBS  ONCE  AGAIN. 
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CALL  GGUBSIDSEED,NR,R> 
C 

C    DO  LOOP  200  USED  RANDOM  NUMBERS  TO  ASSIGN  STARTING 
C    TEMPERATURES  TO  EACH  OF  THE  M  HOUSES 
C 

DO  200  1=1, M 

TI I  I)=TOFF*-RI  I  I'M  TON-TOFF  » 
200    CONTINUE 

RETURN 

END 
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ABSTRACT 

In  the  last  two  decades,  electric  utilities  have 
experienced  enormous  growth  in  the  size  of  seasonal  peak 
demand.  This  presents  a  problem  for  utilties  given  the 
cost  of  building  new  generation  facilities.  One  alternate 
method  of  approaching  this  problem  is  to  try  to  regulate 
the  size  of  the  peak  demand.  A  method  for  doing  this  is 
direct  load  control,  where  the  loads  are  shed  for  a  part 
of  a  specified  period  of  time  (for  example,  7.5  minutes 
out  of  every  30  minutes).  This  research  sought  to  examine 
direct  load  control  of  residential  air-conditioners 
(a/c's)  using  computer  modelling  and  simulation.  A  model 
is  developed  that  represents  an  a/c  system  at  the  thermo- 
stat level.  The  model  is  then  used  to  simulate  the  be- 
havior of  a  group  of  a/c's  under  load  control  conditions. 
Simulations  were  done  using  a  constant  driving  temperature 
(adapted  from  an  outside  temperature)  to  determine  steady- 
state  effects  of  direct  load  control.  Simulations  were 
also  performed  using  a  diurnally  varying  driving  tempera- 
ture to  more  closely  approximate  a  real  life  situation. 
Two  different  methods  of  control  were  used  and  compared 
with  respect  to  demand  reduction  and  temperature  inside 
the  house.  The  first  is  a  centralized  control  where  all 
a/c's  are  controlled  from  one  central  location.  In  this 
case,  control  is  excercised  simultaneously  for  all  houses. 
The  second  method  is  load  leveler  control.  A  load  leveler 
is  a  device  which  controls  air  conditioners  depending  on 
the  outside  temperature.  Houses  are  controlled  indepen- 
dently and  remotely  using  load  leveler  control. 


